kilka sciezek do pliku i tylko 1 z roz. .jpg jak go wybrac??

mam memo a w memo taki text

http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/gtmu.gif
http://www.gry-online.pl/grafiki/top/dzial/1top_napis.gif
http://www.gry-online.pl/grafiki/top/platforma/1top_platforma.gif
http://www.gry-online.pl/grafiki/top/dzial/top_dzial.gif
http://www.gry-online.pl/grafiki/top/platforma/1top_platforma_obrazek.gif
http://www.gry-online.pl/grafiki/big_plat_1.gif
http://www.gry-online.pl/grafiki/ocena_spacer.gif
http://www.gry-online.pl/grafiki/ocena_spacer.gif
http://www.gry-online.pl/Galeria/Gry4/676053921.gif
http://www.gry-online.pl/grafiki/dru_str.gif
http://www.gry-online.pl/grafiki/wys_str.gif
http://www.gry-online.pl/Galeria/Gry4/676053921.jpg
http://www.gry-online.pl/grafiki/big_plat_1.gif
http://www.gry-online.pl/Galeria/Gry4/156379031.gif
http://www.gry-online.pl/Galeria/Gry4/1987203250.gif
http://www.gry-online.pl/Galeria/Galeria/251212390.jpg
http://www.gry-online.pl/Galeria/Galeria/251212359.jpg
http://www.gry-online.pl/Galeria/Galeria/251212328.jpg
http://www.gry-online.pl/grafiki/rss.gif

(tutaj pokazuje 1 pod 2 w memo to jest polaczone czarna groba kreska i jest to w 1 lini)

i teraz w tych linkach jest 1 plikz rozszerzeniem jpg jak go całego skopiowac do edita

uzywam funkcji copy ale mi to niewychodz ...
ma ktos jakisa pomysl???

Nie za bardzo Cię zrozumiałem, ale zobacz jak działa to:

uses StrUtils;

procedure TForm1.FormCreate(Sender: TObject);
var Index:Integer;
begin
  for Index:=0 to Memo1.Lines.Count - 1 do
    if RightStr(Memo1.Lines[Index], 4) = '.jpg' then
      Memo2.Lines.Append(Memo1.Lines[Index]);
end;