Subida FTP carpeta pictures - error de formato

[jmbarrio]

Buenos días, estoy realizando una subida por FTP de la carpeta pictures de fotos en formato jpg.
Las fotos suben sin ningún problema al servidor, pero al abrirlas en el PC me da error de formato.
En el dispositivo android esas mismas fotos se ven sin problema. El código utilizado es el siguiente
El código utilizado es el siguiente:

Código Delphi [-]
procedure TF_Captura.Button1Click(Sender: TObject);
var
  FTP: TIdFTP;
  FileList: TStringDynArray;
  FileName, FolderPath: string;
begin
  FTP := TIdFTP.Create(nil);
  try
    // Configura el FTP
    FTP.Host := F_Config.edServidorFTP.Text;
    FTP.Username := F_Config.edUsuario.Text;;
    FTP.Password := F_Config.edPassword.Text;;
    FTP.Connect;
    FolderPath := TPath.Combine(TPath.GetSharedPicturesPath, '');
    // Lista todos los archivos en la carpeta
    FileList := TDirectory.GetFiles(FolderPath, 'foto_tomada*.*', TSearchOption.soTopDirectoryOnly);
    // Sube cada archivo
    for FileName in FileList do
    begin
      FTP.Put(FileName, ExtractFileName(FileName));
    end;
    ShowMessage('Subida completada');
  finally
    FTP.Disconnect;
    FTP.Free;
  end;
end;

No sé sí me falta configurar algo mas en el componente FTP.
¿Alguna idea?

Muchas gracias, saludos.