Как?

[Z3rique]

Здарвствуйте, у меня вот есть процедура. Мне нужно, что бы
из переменной s отсылался текст в окно "Garena", как мне это сделать на кнопку?

procedure SM_SetText(s:string;wnd:HWND);
var
i:integer;
begin
for i:=1 to length(s) do begin
SendMessage(wnd, WM_CHAR, ord(s[i]), 0);
end;
end;