How to use a TWebbrowser to post some stuff (code is almost complete)

Hi guyz!!

Using a TWebbrowser I fail to implement a button click right after some fields are filled in. This is the code(from swissdelphi) I use to fill in some fields and now I'd like to click a button in addition. The buttons sourcecode I dropped under the code segment of my app.



function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;


//When the document is complete try to fill out the field homepage with the url
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if FillForm(WebBrowser1, 'TopicTitle', 'Experts Exchange Rockzz!') = False then
    ShowMessage('Error. Field not available or no Form found.');
    if FillForm(WebBrowser1, 'TopicDesc', 'Like H*ll!!') = False then
    ShowMessage('Error. Field not available or no Form found.');
    if FillForm(WebBrowser1, 'Post', 'They always do!') = False then
    ShowMessage('Error. Field not available or no Form found.');
  end;


This is the sourcecode from the page Im posting to. (the button I want to click).
<input type="submit" name="submit" value="Plaats een nieuw onderwerp" tabindex="7" class="button" accesskey="s" />


So can anyone implement a button click on that button after the fields are filling in? I managed to do so without a TWebbrowser but I fail to do so with a TWebbrowser. All points go to  him who completes this code. Let me know if you need some information more okay?

My regards and max respect!

PeterdeB