You are not creating IdFTP1
object properly. Try something like this:
procedure TForm1.Button6Click(Sender: TObject);
var
IdFTP1: TIdFTP;
begin
IdFTP1 := TIdFTP.Create;
try
IdFTP1.Host := host;
IdFTP1.Username := user;
IdFTP1.Password := pass;
IdFTP1.Passive := TRUE;
IdFTP1.Connect;
try
IdFTP1.Put('C:\folderden\hash_rekt.bmp');
finally
IdFTP1.Disconnect;
end;
finally
IdFTP1.Free;
end;
end;