Cовместить типы "TCaption" и "PAnsiChar"

[Alex Cones]

Создаю программу по закрытию окон с заданным типом (осваиваю поиск окна и дачу ему команд). На форме Чекбокс, два Эдита и Кнопка. В первом Эдите пишется тип окна (определяется с помощью WS.EXE), если активен чекбокс, то дается доступ ко второму чекбоксу где пишется заголовок окна. (вроде проверки "использовать заголовок"). Код такой:

procedure TForm1.Button1Click(Sender: TObject);
Var H:HWND;
begin
If CheckBox1.Checked = false Then H:=FindWindow(Edit1.Text,nil) Else
                                  H:=FindWindow(Edit1.Text,Edit2.Text);
If H<>0 Then SendMessage(H,WM_CLOSE,0,0,);
end;

Вылезает ошибка - несовместимые типы TCaption и PAnsiChar. Как их совместить?

[lexaltd]

PChar(тут TCaption)

procedure TForm1.BitBtn1Click(Sender: TObject);
Var H:HWND;
begin
If CheckBox1.Checked = false Then
 H:=FindWindow(PChar(Edit1.Text),nil)
 Else
 H:=FindWindow(PChar(Edit1.Text),PChar(Edit2.Text));
If H<>0 Then
 SendMessage(H,WM_CLOSE,0,0,);
end;

[Alex Cones]

Спасибо большое, все работает.