1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
Var i,_pos:integer;
    s:string;
begin
  for i:=0 to Memo1.Lines.count-1 do
    begin
      s:=memo1.lines[i];
      _pos:=pos(' ',s);
      if _pos<>0 then
        //Leerzeichen gefunden, rest der zeile abknipsen
        begin
          delete(s,_pos,length(s)-_pos+1);
          memo1.lines[i]:=s;
        end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  i : Integer;
  s : String;
begin
  for i := 0 to Memo1.Lines.Count-1 d
  begin
     s := copy(Memo1.Items.Strings[i], 0, pos(' ', Memo1.Items.Strings[i]));   
     ShowMessage(s);
  end;