procedure TGetRemoteVersionThread.Execute;
var
  sTemp: String;
  GetIt: TidHttp;

begin

// Runterladen im Thread
  GetIt.Create(nil);
  try

new := getit.get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getchat'+'&casenick='+casenick+'&lastid='+lastid);

new := StringReplace(new, '###', #13#10, [rfReplaceAll]);



lastid := getit.get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getlastid'+'&casenick='+casenick);



  finally
    GetIt.Free;
  end;

// Text aktualisieren auf der Form
 
    Synchronize(Updateit);
end;



procedure TGetRemoteVersionThread.Updateit;
begin

if (new = '') OR (new = ' ') then begin

end else begin
form1.chat.Lines.Add(new);
end;


end;


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

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

  thread.DoTerminate;

end;