杀死进程！

Question

程序中，一个Tedit，一个Tbutton，
我想实现在EDIT中输入一个窗体的名字，点一下BUTTON
就杀死相关的进程，
但编译不通过，请高手帮忙！
在线等！
procedure TForm1.Button1Click(Sender: TObject);
var  H:THandle;
  P:DWORD;
  k:array[0..1024] of char;
begin
  k:=edit1.text;  //STRING  AND  ARRAY   （ERROR HERE）
  H:=FindWindow(nil,k);
  if H<>0 then
  begin
    GetWindowThreadProcessId(H,@P);
    if P<>0 then
      TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
  end;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var  H:THandle;
  P:DWORD;
  str: string;
begin
  Str := edit1.text;
  H:=FindWindow(nil,pchar(Str));
  if H<>0 then
  begin
    GetWindowThreadProcessId(H,@P);
    if P<>0 then
      TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
  end;
end;