Вопрос по Delphi.

[dj-botsman]

Программа FTP клиент, по нажатию кнопки удаляется файл, либо папка.
Как сделать чтобы выскакивал вопрос "вы уверены что хотите удалить?" и варианты "да" и "нет".
Вот код на кнопку "Удалить".
ПОМОГИТЕ ПОЖАЛУЙСТА!!!

procedure TMainForm.DeleteButtonClick(Sender: TObject); 
var 
Name: string; 
begin 
if not IdFTP1.Connected 
then Exit; 

Name:=IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName; 
if IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType=ditDirectory 
then 
try 
idftp1.RemoveDir(Name); 
ChageDir(idftp1.RetrieveCurrentDir) ; 
finally 

end 
else 
try 
idftp1.Delete(Name); 
ChageDir(idftp1.RetrieveCurrentDir) ; 
finally 
end; 
end;

[W0LF]

  if MessageDlg('Хотите удалить файл?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  //Удаляем;
  else //Не удаляем;

[Stilet]

if MessageBox(GetForegroundwindow,'Уве рены','Удалить?',MBYESNO)=ID_YES then удалим

[dj-botsman]

Сообщение от Stilet

if MessageBox(GetForegroundwindow,'Уве рены','Удалить?',MBYESNO)=ID_YES then удалим

Я так делал. но у меня при удалении файла все хорошо. а если папку удалять тогда запрос выходит, но если отвечаешь нет, то выходит ошибка и рвется соединение.