Newbie!!! Wie kann ich eine Text-Datei auslesen?

[mlspider]

Ich habe jetzt den folgenden Code untergebracht:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
 Memo1.lines.loadfromfile('c:\Apache\xampp\htdocs\secure\ram\Charts1.asf')
end;

function changeIP(oldadr,newIp:String): String;
var
s: String;
i : Integer;
begin
s := oldadr;
delete(s,1,pos('//',s)+1); // HTTP:// wegschneiden, man geh davon aus dass es immer auf "//" endet
delete(s,1,pos('/',s)-1); // Die IP wegschnippel ( also bis zum nächsten "/")
result := 'http://' + newIp + s; // HTTP davor dann die IP und dann der rest ...
end;

procedure TForm2.Button2Click(Sender: TObject);
var
i:integer;
begin
 for i := 0 to Memo1.Lines.Count do
    changeIP(Memo1.Lines[i],Edit1.text);
end;

end.

Es funtz nicht! Die Ip wird weder wegeschnitten, noch getauscht.

Wo könnte der Fehler liegen. Oder habe ich vieleicht etwas vergessen?

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]