Upgrade Aplicacion

[mjjj]

hola... aer si me pueden ayudar...

estoy utilizando Tidftp para descargar el archivo... pero antes de descargarlo primero quiero saber si es que la version que esta en el servidor ftp es mas nueva que la que tengo en el PC cliente.

para obtener la version de la aplicacion en el PC cliente lo hago de esta manera

Código Delphi [-]
result:='';
  ruta := 'c:\mat\ordenes.exe';
  if not FileExists(ruta) then Exit;
  Size := GetFileVersionInfoSize(PChar(ruta), Size2);
  if (Size > 0) then begin
    GetMem(Pt, Size);
    try
      GetFileVersionInfo(PChar(ruta), 0, Size, Pt);
      VerQueryValue (Pt, '\', Pt2, Size2);
      with TVSFixedFileInfo (Pt2^) do begin
        Result :=
        IntToStr(HiWord(dwFileVersionMS))+'.'+
        IntToStr(LoWord(dwFileVersionMS))+'.'+
        IntToStr(HiWord(dwFileVersionLS))+'.'+
        IntToStr(LoWord(dwFileVersionLS));
      end;
    finally
      FreeMem(Pt);

Ahora bien necesito comprar esta version con la que esta en el servidor FTP... como hago para obtener la version del ejecutable que esta en el servidor y luego compararlas??

Espero me puedan ayudar,...

Saludos