[R.i.m.s.k.y.]

Temyraz@fb, не пора ужо самому учится?

Код:

function TUT(filepath:string):string;
var
  S: TArrayOfString;
  i : Integer;
begin
  if not FileExists(FilePath) then begin MsgBox('Файл не найден ' + FilePath, mbError, mb_Ok); Exit;end; // если файла нет, выходим
  LoadStringsFromFile(FilePath, S); // загружаем файл
  result := S[0];
end;

Exec (ExpandConstant ( '{tmp}\check.bat' ), TUT + AddQuotes(PathToPsql) , ExpandConstant ( '{tmp}' ), SW_HIDE, ewWaitUntilTerminated, ReturnCode );

И если хочешь добавить кавыки - используй AddQuotes