hente text fra online fil til memo

Jeg bruger selv den her funktion til at hente filer fra nettet:

uses
  ExtActns;

function TForm1.DownloadFile(sURL,sDest:string): boolean;
begin
  Result:=True;
  with TDownLoadURL.Create(nil) do
  try
    URL:=sURL;
    Form1.Caption:='Fetching '+URL+'...';
    Filename:=sDest;
    try
      ExecuteTarget(nil);
      Form1.Caption:='Parsing '+URL+'...';
    except
      Result:=False;
    end;
  finally
    Free;
  end;
end;

Du skulle så gerne kunne hente denne og loade den ind i en Memo ved at bruge denne kode:
DownloadFile('http://www.side.dk/fil.txt','fil.txt');
Memo1.Lines.LoadFromFile('fil.txt');

Og så lige et spørgsmål fra mig der ikke er så langt endnu *griner*

Undeclared Indentifier 'DownloadFile'
Undeclared Indentifier 'sURL' osv.

Hvad har jeg gjort galt?

----------------------------------------------------------------------------
var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ExtActns;


function TForm1.DownloadFile(sURL,sDest:string): boolean;
begin
  Result:=True;
  with TDownLoadURL.Create(nil) do
  try
    URL:=sURL;
    Form1.Caption:='Fetching '+URL+'...';
    Filename:=sDest;
    try
      ExecuteTarget(nil);
      Form1.Caption:='Parsing '+URL+'...';
    except
      Result:=False;
    end;
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile('http://www.jw-musik.dk/index.htm','index.htm');
Memo1.Lines.LoadFromFile('index.htm');
end;

end.
------------------------------------------------------------------------
Lige en Copy / Paste af koden.

//Scifo (Sorry hvis jeg er lidt besværlig, men har ikke været i gang så lang tid)

Du har glemt at erklære funktionen i din erklæring af TForm1 under type

type
  TForm1 = class(TForm)
    //Der står sikkert en masse heroppe - det er udeladt
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function DownloadFile(sURL,sDest:string): boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Sagt på en anden måde, så skal du blot placere linien

    function DownloadFile(sURL,sDest:string): boolean;

på en linie lige før ordet "private" oppe i din type-sektion.

1000 Tak... lige nøjagtig perfekt... lige hvad jeg skulle bruge tak du :-)

Hvis du ligger et svar er pointsne dine...

/Scifo

Værsgo ...og glædelig jul, i øvrigt :)

Tak tak og ilm :-)