Tfrm_main.fotoYolla(d:Timage;fileName:String);
    var
      Params: TIdMultipartFormDataStream;
      Response: TStringStream;
      var ms:TMemoryStream;

    begin


    ms := TMemoryStream.Create;
    try
      d.Bitmap.Resize(300,400);

      d.Bitmap.SaveToStream(ms);
     with IdFTP1 do
      try
       Host := 'myserver';
        Username :='anonymous';
        Password :='1234';
        Port:=21;
        Connect;

        Ms.Position := 0;
        Put(Ms, fileName);
      finally
        Disconnect;
      end;
    finally
      ms.Free;
      d.Free;
    end;
    ShowMessage('İmage is updated.');
    end;