اجرا کردن یک کد جاوا اسکریپت با کمک TWebbroswerاز طریق دلفی؟

[AlirezaBahredar]

با سلام......
من بایستی با کمک برنامه ام به یک وب سایت Login کنم.اما متاسفانه این سایت یک فرم Login داره که دکمه Submit نداره.اینکه می گم دکمه Submit نداره واقعا اینجوری نیست.دکمه داره ولی از نوع ImageButton هست و برای ورودش با کمک یک تابع js عملیات ورود را انجام میده.متاسفانه کلیه مثالهای که تو این سایت یا سایت About.com وجود داره همگی درست کار می کنند اما با دکمه واسه ارسال یا همان Submit.حالا من میخوام به کمک دلفی پس از پر نمودن فیلدهای Username و Password تابع جاوااسکریپت را اجرا کنم تا فرمم Submit شود.
آیا اصولا اینکار شدنیست؟
با تشکر.

[AlirezaBahredar]

مشکل حل شد......
با کمک این تیکه کد


uses
MSHTML_TLB, SHDocVw, ShellAPI;

// function to execute a script function

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
win: IHTMLWindow2;
Olelanguage: Olevariant;
begin
if doc <> nil then
begin
try
win := doc.parentWindow;
if win <> nil then
begin
try
Olelanguage := language;
win.ExecScript(script, Olelanguage);
finally
win := nil;
end;
end;
finally
doc := nil;
end;
end;
end;

[saeedjaihoni]

اينم يك مثال از سایت About.com براي كنترل Button


procedure TForm1.Button1Click(Sender: TObject);
var
script : string;
begin
//locate the first element with ID attribute = "main" and show its tag

script := 'var elemMain = document.getElementById("main") ; if (elemMain != null) { alert(elemMain.tagName) ; }';

ExecuteScript(EmbeddedWB1.Document as IHTMLDocument2, script, 'javascript')
end;