interface

type
  TGetRemoteVersionThread = class(TThread)
  protected
    procedure Execute; override;
end;

 .
 .
 .

implementation

procedure TForm1.FormCreate(Sender: TObject);
var Thread: TGetRemoteVersionThread;
begin

 Thread := TGetRemoteVersionThread.Create(True);
 Thread.FreeOnTerminate := True;
 Thread.Resume;

 .
 .
 .

end;

procedure TGetRemoteVersionThread.Execute;
var Fv,Rv: string; //FileVersion, RemoteVersion
begin
 try
  if InternetGetConnectedState(nil, 0) then begin
   Rv := LoadURL(BaseURL + 'Launcher.ver'); // Routine siehe oben
   Fv := GetFileVersion(ParamStr(0));
   with Form1.Menu1 do begin
    if Rv = Fv then
    Caption := 'You allready have the latest version (V' + Rv + ')';
    if Rv <> Fv then
    Caption := 'Update and install the latest version V' + Rv;
   end;
  end;
 except end;
end;