ShowMessage Fenster schließt nicht richtig?

[Alterauge]

Hallo,
das ShowMessage Fenster schließt nicht richtig,
es geht kurz zu aber dann sofort wieder auf?

Was mache ich hier falsch?

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
 i : integer;
 s, d: String;
begin
 i := 0;
 while i < fileListBox1.Items.count do begin
  Memo2.Lines.LoadFromFile(fileListBox1.FileName);
  s := Memo2.Lines.Text; //Beinhaltet z. B.: TEXT TEXT TEXT TEXT TEXT **ID 999
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); //evtl. Zeilenumbruch ...
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); //entfernen
  s := Trim(s);
  ShowMessage(s); //Ergebnis ist: ID 999
  end;
end;