teilstring im string suchen

[Haegar]

Delphi-Quellcode:

procedure TForm1.Drucken1Click(Sender: TObject);
var druckdat:TextFile;
    i,p:integer;
    s:string;
    name, vorname, leerstring, rand:string[20];
begin
 leerstring:='                    ';       //20 LZ
 rand:='          ';                         //10 LZ
 {AssignPrn(druckdat);     //Variable mit Drucker verbinden
 Rewrite(druckdat);            //Verbindung herstellen
 Printer.Canvas.Font.Name:='Courier New';
 Printer.Canvas.Font.Size:=12;
 Writeln(druckdat);
 Writeln(druckdat);
 Writeln(druckdat,'Telefonverzeichniss':50);
 Writeln(druckdat);
 Writeln(druckdat,Rand+'Name                Vorname                Telefon');}
 for i:=0 to lb_anzeige.Items.Count-1 do
  begin
   s:=lb_anzeige.items[i];
   p:=pos(' ',s);
   showmessage(IntToStr(p));
   name:=copy(s,1,p-1);
   name:=name+leerstring;
   showmessage(name);
   //Writeln(druckdat,Rand+name);
  end;
 //CloseFile(druckdat);
end;

die druckersache ist für testzwecke auskommentiert, und brauch nicht verbessert werden ) (auch wenns nicht optimal sein sollte)
wenn ich anstatt des leerzeichens ein bucstabe oder so einsetze, dann haut das mit dem copy und so auch alles hin, aber nicht wenn leerzeichen drin ist!?


gruss haegar