[[duilioisola]]

un memo está compuesto de muchas líneas.

Deberás utilizar un for :

Código Delphi [-]
var
i:integer;
linea:integer;
Info:string;
begin
  for linea := 0 to Memo1.Lines.Count -1 do
  begin
    Info:=Memo1.Lines[linea];
    i := Pos(' ', Info);
    Delete(Info, i, MaxInt);
    Memo1.Lines[linea] := Info;
  end; {for linea}