caracteres de un memo

[ZayDun]

Utilizo este codigo pero solo me muestra la primera url que contiene el memo donde almaceno las urls.

Código Delphi [-]
var
i:integer;
Info:string;
begin
  Info:=Memo1.Lines.Text;
  i := Pos(' ', Info);
  Delete(Info, i, MaxInt);
  Memo1.Lines.Add (Info);
  end;