JPG auf FTP hochladen geht nicht

[Coldice111]

Hi!
Es geht auch alles bis auf das hochladen von dem Bild.
Hier der Code :

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
j:tjpegimage;
b1,b2:tbitmap;
begin
  b1:=tbitmap.Create;
  b1.width:=1025;
  b1.height:=780;
  b1.canvas.handle:=GetWindowDC(Handle); // Desktop erfassen
  b2:=tbitmap.create;
  b2.width:=b1.width;
  b2.height:=b1.height;
    b2.Canvas.CopyRect(screen.desktoprect,b1.Canvas,screen.desktoprect);
  j:=tjpegimage.create;
  j.assign(b2);
  j.savetofile('C:\'+edit1.text+'.jpg');
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  ftp.Name:='********';
  ftp.Password:='******';
  ftp.Host:='*******';
  ftp.connect;
  ftp.put('c:\'+edit1.text+'.jpg',edit1.text+'.jpg',false);
end;

Wenn ich auf hochladen klicke kommt Zugriffsverletzung

Cu Coldice111