Access Violation bei manchen Versionen von Windows?

[richie_k]

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;
  if htmlcontent[1]= '1' then
  begin
    login:=true;
    //FormActivate(Sender);
  end
  else
    Form1.caption:='Login';   
end;

immer noch der gleiche Fehler..
hab sogar mal FormActivate ausgeklammert um zu verhindern, dass es daran liegt..
ich verstehe es nicht - bei mir klappt es wunderbar, bei ihm nicht.