EnterKey activate ?

[Mini-Programmierer]

ich habe eine Schleife in der Funktion eingebaut aber hat es trotzdem nicht geklappt :

Delphi-Quellcode:

function TForm1.GetCurrentWB: TWebbrowser;
var
  i: integer;
begin
  result := nil;
  for i:= 0 to PageControl1.ActivePage.ControlCount -1 do
  begin
    if (PageControl1.ActivePage.Controls[i] is TWebBrowser) then
      result := (PageControl1.ActivePage.Controls[i] as TWebBrowser)

  end;
end;