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

Hi guyz!

Here's the entire code of my project, as you see I use documentcomplete to fill it out and click the button. This works great. Now I'd like to take this a bit further > After the fields are filled and the button is clicked and it has loaded the new page, the documentcomplete should fire off a click on an image button instead of repeating  > So at button1 click it should fill in the fields, click the button after which it loads the new page and there it should click an image button. Should I use a timer or something to accomplish that?

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 fields and click the button
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if FillForm(WebBrowser1, 'TopicTitle', 'Posted by Anonymale') = False then
    ShowMessage('Error. Field not available or no Form found.');
    if FillForm(WebBrowser1, 'TopicDesc', 'Test') = False then
    ShowMessage('Error. Field not available or no Form found.');
    if FillForm(WebBrowser1, 'Post', 'Imitation of automation!') = False then
    ShowMessage('Error. Field not available or no Form found.');
    keybd_event(vk_MENU,  MapvirtualKey(vk_MENU, 0 ), 0, 0 );  //Alt key down
     keybd_event(ord('S'),  MapvirtualKey( ord('S'), 0 ), 0, 0); //S key down
keybd_event(vk_MENU,  MapvirtualKey( vk_MENU, 0 ), KEYEVENTF_KEYUP, 0);//alt up
     keybd_event(ord('S'),  MapvirtualKey( ord('S'), 0 ), KEYEVENTF_KEYUP, 0);
end;


procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
begin
  if ProgressMax = 0 then
  begin
    label1.Caption := '';
    Exit;
  end;
  try
    if (Progress <> -1) and (Progress <= ProgressMax) then
      label1.Caption := IntToStr((Progress * 100) div ProgressMax) + '% loaded...'
    else
      label1.Caption := '';
  except
    on EDivByZero do Exit;
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('http://myboard.com/index.php?act=Post&CODE=2');
  webbrowser1.SetFocus;
end;


Let me know if my information is insufficient ok?

My regards and max respect to all of you guyz!!

PeterdeB