1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button3Click(Sender: TObject);
var
i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;
begin
EncodedStr := 'file=c:\autoexec.bat';
The post must be an array. But without null terminator (-1)
Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
Put Post in array
for I := 1 to Length(EncodedStr) do
Post[I - 1] := Ord(EncodedStr[I]);
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
WebBrowser1.Navigate('http://de.groups.yahoo.com/group/ognd-m1cd-0/sfupld/ognd-m1cd-0?',
EmptyParam,
EmptyParam, Post, Header);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

function GetFocusEx(): HWND;
var  FgWnd: HWND;  FgTid: DWORD;  Tid: DWORD;
begin
Result := 0;
FgWnd := GetForegroundWindow();
FgTid := GetWindowThreadProcessId(FgWnd, nil);
Tid := GetCurrentThreadId();
if (FgTid = Tid) then
Result := GetFocus()
else
if AttachThreadInput(Tid, FgTid, True)
then
begin
Result := GetFocus();
AttachThreadInput(Tid, FgTid, False);
end;
end;

function send1key(Thread:HWND;Key1:Byte):boolean;
begin
SetForeGroundWindow(Thread);
keybd_event(Key1,MapVirtualKey(Key1,0),0,0);
keybd_event(Key1,MapVirtualKey(Key1,0),KEYEVENTF_KEYUP,0);
end;


function SendStr2Handle(Thread:HWND;Text:String):boolean;
begin
SendMessage(Thread,WM_SETTEXT,0,lParam(PChar(Text)));
result:=true;
end;

function send2keys(Thread:HWND;Key1:Byte;Key2:Byte):boolean;
var
vk1,vk2:UINT;
begin
SetForeGroundWindow(Thread);
vk1:=MapVirtualKey(Key1,0);
vk2:=MapvirtualKey(Key2,0);
keybd_event(Key1,vk1,0,0);
keybd_event(Key2,vk2,0,0);
keybd_event(Key1,vk1,KEYEVENTF_KEYUP,0);
keybd_event(Key2,vk2,KEYEVENTF_KEYUP,0);
result:=true;
end;