procedure TForm1.Button1Click(Sender: TObject); var S, Temp: string; begin S := ? Tekst ?; Temp := S; S := Trim(S); ListBox1.Items.Add(Temp); ListBox1.Items.Add(S); end;