1:

function isOnlineVersionNewer(currentVersion, onlineVersion : string): boolean;					

1:
2:
3:
4:
5:

  if (SERVER_VERSION_1 >= VERSION_1)
  or (SERVER_VERSION_2 >= VERSION_2)
  {...}
  or (SERVER_VERSION_4 > VERSION_4)
  then UPDATE;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

    
function isOnlineVersionNewer(currentVersion, onlineVersion : string): boolean;
  function VersToInt(const Vers : String) : integer;
  var 
    T : String;  
  begin
    T := '';
    for I := 1 to Length(Vers) do
      if Vers[i] in ['0'..'9'] then
        T := T + Vers[I];
    Result := StrToInt(T);
  end;  
begin
  Result := VersToInt(onlineVersion) > VersToInt(currentVersion);  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function isOnlineVersionNewer(currentVersion, onlineVersion : string): boolean;
begin
 case AnsiCompareStr(CurrentVersion,OnlineVersion) of
   1: isonlineversionnewer :=  true;
  -1: isonlineversionnewer :=  false;
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(booltostr(isOnlineVersionNewer('1.5555.96','1.6.6')));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

type
   TVersionNumber = record
       MainVersion: byte;
       Subversion: byte;
       Build: integer;
   end;

   function GetNewerVersion(Version1,Version2: TVersionNumber): integer;
   begin
       if (Version1.MainVersion < Version2.MainVersion) then
            result := 2 
       else
       begin
            if (Version1.SubVersion < Version2.SubVersion) then
                  result := 2 
            else
            begin
                 if (Version1.Build < Version2.Build) then
                       result := 2
                 else
                       result := 1;
            end;
        end;
    end;