[JunkieBeat]

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

Код:

procedure TForm1.N5Click(Sender: TObject);
var
  MyDir:string;
begin
  MyDir:=ExtractFilePath(ParamStr(0));
if FileExists(MyDir+'\Тестовик.exe') then
begin
MyDir:=MyDir+'\Тестовик.exe';
WinExec(MyDir,SW_SHOWNORMAL);
end
else
begin
  ShowMessage('Программа не найдена');
end;

end;

ошибка с типами хз как преобразовать
в строчке
WinExec(MyDir,SW_SHOWNORMAL);
[Error] Unit1.pas(262): Incompatible types: 'String' and 'PAnsiChar'