Načítání souboru txt do Mema

Nemám chuť kontrolovať Tvoj výtvor ale...
Asi by som na to išiel trošku jednoduchšie ???

1.) Na prázdny form si daj komponenty: WebBrowser (záložka internet), 2 tlačítka a ListBox.
2.) do uses doplň mshtml

uses
  MSHTML;

// Najprv treba otvoriť stránku
procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('http://pc.poradna.net'); //alebo konkrétny súbor buď na webe alebo v PC...
end;

// Potom treba vykonať nasledujúci kód:
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Word;
  ImageHref, ImageName: string;
  Document: IHtmlDocument2;
begin
  for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Document := WebBrowser1.Document as IHtmlDocument2;
    ImageHref := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
    ImageName := (Document.Images.Item(i, 0) as IHTMLImgElement).nameprop;
    ListBox1.Items.Add(Format('%s;    Meno súboru: %s', [ImageHref, ImageName]));
  end;
end;