Listbox splitten!

[thiagojonas]

Okay. Dann so, stimmts?

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var flug: string;
position:integer;
begin
flug := '001';
Position := Pos(flug, '001 Wayne'); // "001 Wayne" steht für die ZEILE in der Listbox
if Position <> 0 then
    ShowMessage('gefunden an Position: '  + IntToStr(Position))
  else
    ShowMessage('nicht im String vorhanden');
end;

Hier halt Position 1.

Und was mache ich dann?