Listbox splitten!

[thiagojonas]

Alle klar danke.
Für alle mit dem selben problem:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var flug: string;
position:integer;
target:string;
begin
flug := '001';
Position := Pos(flug, '001 Wayne');
Target := Copy(flug,position);
if Position <> 0 then
    ShowMessage('gefunden an Position: '  + target)
  else
    ShowMessage('nicht im String vorhanden');
end;

Danke nochmal an euch alle!