1:

Document.Forms.Item(0).Suchenach.Focus;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var aOleObj : OleVariant;
//...
aOleObj := WebBrowser1.OleObject.document.Frames.Item('Oben').Document;
if aOleObj.selection.type = 'Text' then
  begin
  if aOleObj.Selection.CreateRange.parentElement.tagName = 'INPUT' then
    if aOleObj.Selection.CreateRange.parentElement.Name = 'Suchenach' then
      aOleObj.Forms.Item(0).Absendeknopf.Click;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var aOleObj : OleVariant;
//...
if WebBrowser1.OleObject.document.activeElement.Name = 'Oben' then
  begin
  aOleObj := WebBrowser1.OleObject.document.Frames.Item('Oben').Document;
  if aOleObj.activeElement.TagName = 'INPUT' then
    if aOleObj.activeElement.Name = 'Suchenach' then
      begin
      //showmessage(aOleObj.activeElement.Name);
      aOleObj.Forms.Item(0).Absendeknopf.Click;
      end;
  end;