Message gelöcht ohne timer

[SaFu]

Delphi-Quellcode:

procedure TForm7.LöschenClick(Sender: TObject);
  begin
 if FileListBox1.Items.Count > 0 then
  begin
   if MessageDlgPos('Wollen Sie diesen Vertretungsplan wirklich löschen? ',mtInformation,[mbYes,mbNo],0,290,300) = mrYes then
     begin
      DeleteFile(FileListBox1.FileName);
      Showmessage('Datei gelöscht');    
     end
   else
    ComboBox4.SetFocus;
 end
else
 begin
   if MessageDlgPos('Es wurde kein Vertretungsplan ausgewählt'
     +'',mtInformation,[mbok],0,260,200) = mrok then
 end;

Die 2 sekunden hab einfach mal so geschrieben