1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

implementation
  var ger: textfile;
      ver: string;
{$R *.nfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
assignfile(ger, 'ftp://***');
reset(ger);
readln(ger, ver) ;
label1.Caption := ver;
closefile(ger);
end;

end.					

1:
2:
3:
4:
5:
6:

procedure TForm2.Button1Click(Sender: TObject);

begin
idFTP1.Connect;
Self.idFTP1.Put('d:\magicians.txt', '/', false);
end;					

1:

Index was outside the bounds of the array