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

var
    index,c1,c2:integer;
    IPping: array[1..20] of String[15];
begin
   index:=memo1.Lines.Count;

   for c1:=1 to index do
      begin
      IPping[c1]:=memo1.Lines.Strings[c1];
      end;

      for c2:=1 to Index do
      if pos(#32,IPping[c2]) > 0 then
        begin
        SetLength(IPping[c2],pos(#32,IPping[c2])-1);
        Log.Lines.add(IPping[c2]);
        end;

end;					

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

with Memo1,Lines do
  for i := 0 to Count - 1 do
    if(Strings[i] <> '') and
      (pos(#32,Strings[i]) > 0) then
    begin
      Log.Lines.Add(copy(Strings[i],1,
        pos(#32,Strings[i])-1);
    end;