Kannst du's nicht so machen?
Delphi-Quellcode:
var
s: string;
p: PChar;
begin
s:=IBQuery1.FieldByName('Pfad').AsString;
p := PChar(s);
if ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', p, nil, SW_SHOWDEFAULT)< 33 then showmessage('Anwendung kann nicht geoeffnet werden ');
end;