procedure TForm3.Button3Click(Sender: TObject);
var
  F: TextFile;
  S: String;
  datei : TFileStream;
begin
 Datei:=TFileStream.create(ExtractFilePath(Application.ExeName)+'\webver.txt',fmCreate);
 IdHttp1.Get('http://www.softprose.de/pub/website/webver.txt',Datei);
 AssignFile(F,datei);
  {$I-}
    Reset(F);
  {$I+}
  try
    if IOResult=0 then
    begin
      ReadLn(F, S);
      Label8.caption:=S;
    end;
  finally
  label7.Enabled:=TRUE;
  button4.enabled:=TRUE;
  CloseFile(F);
  Datei.free;
end;
end;