Delphi i Twebbrowser

mam pytanie - jak to osiągnąć by przeglądarka wykonała skrypt umieszczony pod buttonem i wysłała wszystko co ma wysłać normalnie ale nie reagowała dalej w żaden sposób (nie odbierała tego co przyjdzie) próbowałem oprogramować zdarzenie beforenavigate i downloadbegin ale nie wychodzi - macie jakieś pomysły ?

Czyli chcesz pobrać kawałek strony i tylko ten kawałek wykonać ?

nie, nie tak,
chcę wysłać to co javaskrypt wysyła do skyptu php, ale nie chcę pobierać strony którą otrzymałbym w odpowiedzi

stan strony w momencie o którym rozmawiamy jest dynamiczny - są poustawiane pewne wartości w formularzu - jest on wstępnie sprawdzony należy kliknąć ok zeby ostatecznie zatwierdzić

ale zatwierdzenie spowoduje że strona "zapomni" wcześniejszych ustawień i wszystko trzeba by robić od nowa żeby wysłać dokładnie to samo ponownie

chciałbym zrobić tak by wysłać to co ma być wysłane ale żeby w przeglądarce strona została ta sama z tymi samymi wartościami formularzy etc ...

jeszcze raz może jaśniej:

jest strona1.php - wypełniamy formularz i zatwierdzamy skrypt php obrabia dane i pokazuje je w nieco innej postaci
strona1.php - pokazuje co żeśmy wybrali i pyta czy na pewno wysłać (wartości inputów są ustalone na poprzedniej stronie)
strona2.php - pokazuje stan konta ale następuje przekierowanie do innej strony więc np odświerz niczego nie powtórzy a cofnij żąda potwierdzenia

pomysł mam taki - wysłać do strona1.php w tej 2 fazie to co miało być wysłane - i nie robić nic więcej tak żeby móc znowu wcisnąć ok co spowodowało by ponowne wysłanie danych i tak dalej

nie ma tam żadnych zabezpieczeń typu sprawdzenie czy dane nie zostały juz wysłane więc tu nie będzie problemów - nie wiem tylko jak to wysłać a potem jakgdyby zatrzymać przeglądarkę

prosta sprawa, kiedyś znalazłem to na google. Stronki Ci nie podam bo nie pamiętam ale mam kod.

procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string) ;
begin
   if doc <> nil then
   begin 
     if doc.parentWindow <> nil then
       doc.parentWindow.ExecScript(script, Olevariant(language)) ;
   end;
end;