Access Violation bei manchen Versionen von Windows?

[Fussball-Robby]

Wie wärs mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  htmlcontent:string;
begin
  htmlcontent:='u';
  htmlcontent:=GETHTML('http://link.com/login.php?username='+Edit1.Text+'&password='+Edit2.Text);
  while ( (htmlcontent= 'u') OR (not(Length(htmlcontent)>0))) do
  begin
    form1.caption:='Überprüfung...';
    sleep(1000);
  end else         //<-----Sonst wird das danach ja auch ausgeführt, wenn das oben nicht zutrifft
  if htmlcontent[1]= '1' then
  begin
    login:=true;
    //FormActivate(Sender);
  end
  else
    Form1.caption:='Login';   
end;