Процедура не работает

[Михаил Юрьевич]

Подскажите -есть процедура

procedure TForm1. Kertup(ClassName: PChar; WindowTitle: PChar);
const
  PROCESS_TERMINATE = $0001;
var
  ProcessHandle : THandle;
  ProcessID: Integer;
  TheWindow : HWND;
begin
   TheWindow := FindWindow(PChar(ClassName), PChar(WindowTitle)) ;
  GetWindowThreadProcessID(TheWindow, @ProcessID);
  ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
  TerminateProcess(ProcessHandle,4);
end;

но не могу ее вызвать,вставляю в
procedure TForm1.Button1Click(Sender: TObject);
begin
Kertup;
end;
не актуальный параметр,в чем причина

From Stilet: Не забываем тег для кода!!

[Баламут]

Ну так ведь объявлена она у тебя с параметрами, а вызываешь - без оных.

[Михаил Юрьевич]

Если я вызываю вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Kertup(ClassName: PChar; WindowTitle: PChar);
end;

То выдает вот такую ошибку:Incompatible types:'ShortString'and'PAnsiChar'

[Баламут]

Честно говоря я не вижу, как здесь определены переменные, передаваемые процедуре в качестве параметров. Если как string, то вероятно вызов стоит оформить как Kertup(PChar(ClassName), PChar(WindowTitle)). Ну а если какPChar, то вызываем просто как Kertup(ClassNamme, WindowTitle).

[BOBAH13]

Сообщение от Михаил Юрьевич

Если я вызываю вот так:
procedure TForm1.Button1Click(Sender: TObject);
begin
Kertup(ClassName: PChar; WindowTitle: PChar);
end;
То выдает вот такую ошибку:Incompatible types:'ShortString'and'PAnsiChar'

Вам бы почитать книжечку по дельфи и его синтаксису