Ich würde es so machen:
1) dem HtmlSubmit-Button eine ID verpassen ( id="einmalig"
2) dieses Button dann so im Code finden und klicken
Delphi-Quellcode:
function GetElementByID(WB: TWebBrowser; elementID: WideString; var element: IHTMLElement): Boolean;
begin
try
element := (WB.Document as IHTMLDocument3).getElementById(elementID) as IHTMLElement;
Result := element <> nil;
except
Result := False;
end;
end;
...
var
button: IHTMLElement;
begin
if GetElementByID(myWB, 'einmalig', button) then
begin
button.click;
end;
end;