Lisbox History - Problemchen

[turboPASCAL]

Hi, nu hab ich auch mal wieder ein kleines Problemchen...

...Ich habe ein kleines Programm erstellt (na so was ) mit einer Listbox in der ich eine History, äh Verlauf eingebaut habe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  
  if ComboBox1.Text <> '' then
  begin
    RunConsoleApp(ComboBox1.Text, Memo1.Lines);

    // Historie
    if ComboBox1.Text <> ComboBox1.Items[0] then
    begin
      ComboBox1.Items.Insert(0, ComboBox1.Text);

      if ComboBox1.Items.Count > 5 then
        ComboBox1.Items.Delete(ComboBox1.Items.Count-1);
    end;
  end;
end;

...das funktioniert soweit ganz gut, aber wenn ich den letzten Eintrag aus der Liste aufrufe dann verschwindet in der Eingabezeile mein Text nachdem ich den "Start" Button gedrückt habe.

Ich finde das Problem nicht, kann es jemand finden ?