Определение Handl'а у TRichViewEdit

[CRESCH]

Понимаю что тема заезженная но всё-же

Хочу написать программу для клиентской части чата комфорт чтобы при входе любого пользователя в комфорт автоматически отсылалось сообщение *имя пользователя* привет но столкнулся со следующей проблемой:

var
Okno : HWND;
Msg: HWND;
begin
Okno:= FindWindow(nil,PChar(Edit1.Text+' - CommFort')); 
Msg := FindWindowEx(Okno, 0, 'RichViewEdit', nil);
SendMessage(Msg, WM_SETTEXT, 0, sizeof('ТЕКСТ'));

Hendle окна клиента нахожу без проблем:

FindWindow(nil,PChar(Edit1.Text+' - CommFort'));

В Edit1 вводится ip адрес сервера

Но вот с определить Hendle компонента не могу
Компонент класса TRichViewEdit

Выполняю проверку на нахождение программы:

if FindWindow(nil, PChar(Edit1.Text+' - CommFort')) <> 0 then
ShowMessage('Нашел')
else
ShowMessage('Не нашел');

Все нормально но та-же проверка на Hendle компонента в окне не проходит.

if FindWindowEx(Okno, 0, 'RichViewEdit', nil) <> 0 then
ShowMessage('Нашел')
else
ShowMessage('Не нашел');
end;

Излазил кучу форумов но так и не смог понять в чем причина.

[Пепел Феникса]

вы уверены что класс окна написан без T?
проверьте любой программой для окон.

[CRESCH]

вы уверены что класс окна написан без T?
проверьте любой программой для окон.

да действительно я ошибся с самого начала в окне где расположено поле как теперь мне попасть именно в нужную мне панель в программе их 2 но мне нужна именно где компонент находится

Пока в голову пришло только это

var
Okno : HWND;
p1,p2: HWND;
Msg: HWND;
begin
Okno:= FindWindow(nil,'Отправка сообщения');
p1 := FindWindowEx(Okno, 0, 'TPanel', nil);
p2 := FindWindowEx(p1, 0, 'TPanel', nil);
msg := FindWindowEx(p2, 0, 'TRichViewEdit', nil);
SendMessage(Msg, WM_SETTEXT, 0, sizeof('Текст'));
end;

но оно не работает скорее всего из за наличия 2х панелей

[CRESCH]

Проверил вышеизложенный мною код этим:

if FindWindowEx(p1, 0, 'TPanel', nil) <> 0 then
ShowMessage('Нашел')
else
ShowMessage('Не нашел');
end;

if FindWindowEx(p2, 0, 'TPanel', nil) <> 0 then
ShowMessage('Нашел')
else
ShowMessage('Не нашел');
end;

панель р1 находит
но вот панель р2 нет