1:

SendMessage(TextfieldHandle, WM_SETTEXT, 0, Integer(PChar(DeinString)));                    

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

var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('SunAwtFrame','Channel: 8-Ball,  Nick: Rayen10');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'SunAwtCanvas', nil);
    wndChild := FindWindowEx(wndChild, 0, 'Edit', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
      FlashControl(wndChild); // internal function
    end;
  end;                    

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

function GetSysFocus : HWND; 
var 
  ThreadID, CurrThrId: cardinal; 
begin 
  Result := 0; 
  ThreadID := GetWindowThreadProcessID(GetForegroundWindow, nil); 
  CurrThrId := GetCurrentThreadId; 
  if ThreadID <> CurrThrId then 
  begin 
    if AttachThreadInput(ThreadID, CurrThrId, true) then 
    begin 
      Result := GetFocus; 
      AttachThreadInput(ThreadID, CurrThrId, false); 
    end; 
  end 
  else 
    Result := GetFocus; 
end;