Getting text from a richedit control in another application

Hi, Please take a look at this image to see the richedit I am talking about.
http://geocities.com/oalawneh/daimage.jpg
It is my first time playing with api so I was stuck several times. Nevertheless it is still a source of fun:-).
Now I could get the handle of the parent client and consequently its titlebar text. like this:
--------------------------------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  DeskTopHwnd, WindowHwnd: Hwnd;
  Buff : array[0..255] of char;
begin
  label1.update;
  DeskTopHwnd := GetDeskTopWindow;
  WindowHwnd := GetWindow(DeskTopHwnd,GW_CHILD);
  While WindowHwnd <> 0 do
  begin
  GetWindowText(WindowHwnd,Buff,255);
  if (Buff <> '') AND (IsWindowVisible(WindowHwnd) <> False) and
  (AnsiContainsText(Buff, 'holdem')=true)
  then
begin
  label1.Caption:=buff;
end;
WindowHwnd := GetWindow(WindowHwnd,GW_HWNDNEXT);
end;
end;
end.
----------------------------------------------------------------------------------------------
Now this works for the parent window. But could not figure out how to get the handle of the richedit in the application client window and consequently getting its text  to place in a memo or a richedit.
Which functions should i use?