Message gelöcht ohne timer

[SaFu]

Hi kann man es realisieren

Das eine Meldung aufgeht und nach 2 sekunden wieder weg ohne timer.(und ohne auf ok zu drücken)

bei der zeile 7

Delphi-Quellcode:

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