Druha cast:

procedure TForm1.IdFTPServer1GetFileSize(ASender: TIdFTPServerThread;
  const AFilename: String; var VFileSize: Int64);
begin
ss := ASender.HomeDir+AFilename;
VFileSize := sizeof(ss) ;
end;

procedure TForm1.IdFTPServer1RemoveDirectory(ASender: TIdFTPServerThread;
  var VDirectory: String);
begin
 RmDir(VDirectory);
end;

procedure TForm1.IdFTPServer1DeleteFile(ASender: TIdFTPServerThread;
  const APathName: String);
begin
ss:=ASender.HomeDir+APathName;
DeleteFile(ss);
end;