funktion liest den wert zu früh

[toms]

Delphi-Quellcode:

private 
  GR:double; 
  getDis(start:string):double; 


function tformMain.getDis(start:string): Double; 
begin 
  //.... 
  wb2.Navigate(ExtractFilePath(application.ExeName)+'rechne.htm'); 
  WaitForBrowser(wb2); 
  berechnenclick; // klickt einen button auf der geladen seite 'rechne.htm' 
  WaitForBrowser(wb2); 
  Result := ExtractGR(wb2.LocationURL); 
end; 

function TFormMain.ExtractGR(url: OleVariant): Double; 
var 
  s, s2: string; 
  i1, i2: integer; 
begin 
  if pos('s=', url) > 0 then 
  begin 
    WB_GetHTMLCode(wb2, dis); 
    s := dis.Text; 
    i1 := pos('edl', s) + 12; 
    i2 := pos('//', s) - 1; 
    s2 := copy(s, i1, i2 - i1); 
    try 
      GR := strtofloat(s2); 
    except 
      GR := 0;    
    end; 
  end; 
end;