Autologin project needs an imagebutton click instead of a text button click (which I fail to implement)

Hi Guyzz!!

Some of you will remember me nagging about the autologin project  I was working on recently, so I'll post my code and point out where I run into a problem:

function TForm1.Go1:boolean;
var
  ShellWindow: IShellWindows;
  WB: IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2;
  Document: Variant;
  k, m: Integer;
  ovElements: OleVariant;
  i: Integer;
begin
result:=false; //assume no go

 ShellWindow := CoShellWindows.Create;
  // get the running instance of Internet Explorer
  for k := 0 to ShellWindow.Count do
  begin
    spDisp := ShellWindow.Item(k);
    if spDisp = nil then Continue;
    // QueryInterface determines if an interface can be used with an object
    spDisp.QueryInterface(iWebBrowser2, WB);
    if WB <> nil then
    begin try

      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      except
      end;
      if iDoc1 <> nil then
      begin
        WB := ShellWindow.Item(k) as IWebbrowser2;
        begin
          Document := WB.Document;
          // count forms on document and iterate through its forms
          for m := 0 to Document.forms.Length - 1 do
          begin
            ovElements := Document.forms.Item(m).elements;
            // iterate through elements
            for i := 0 to ovElements.Length - 1 do
            begin
              // when input fieldname is found, try to fill out
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'text') = 0) then
                begin
                  ovElements.item(i).Value := edtUserName.Text;
                end;
              except
              end;
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'password') = 0) then
                begin
                  ovElements.item(i).Value := edtPassword.Text;

                end;
              except
              end;
              // when Submit button is found, try to click
              try
// This is where I'd like to press an imagebutton but all my attempts to grab hold of the d*mn thing failed . The code
// displayed here works with a normal button with a 'text element' > I use this code to login to several webpages and
// as long as the button has this text element (i.e. 'Log in' or 'Log mij in') it works. However I now bumped into the first
// page having an image button and studied Geobuls replies which helped me out the first time but currently I'm
// not using a TWebbrowser.            

if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and   //  < here I d like to identify the image button
                   (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and  < so type should become: 'image'????
                  (ovElements.item(i).Value = edtButton.Text) then  < and what could I do here to get the right one????
                begin

                  ovElements.item(i).Click;
                  result:=true; // we're a go!

                end;
              except
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

// Here's the html from the page btw:

<input type=image name="msuLoginSubmit" src="/images/loginButton.gif" alt="Log in" class=image>

I tried for several hours but couldnt get this thing working and kinda stumbled over the fact I dont use a TWebbrowser otherwise Geobuls code would have helped me out.
I hope its clear if not give me a sign and I'll explain.

My regards and max respect fly out to all-o-ya!!

Peter