implementation
Uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
Command : String;
Parameters : String;
begin
Command := 'C:\Windows\System32\TaskKill.exe';
Parameters := '/S 127.0.0.1 /IM Calc.exe /T';
ShellExecute(Handle, nil, PChar(Command) , PChar(Parameters), nil, SW_HIDE);
end;