uses
Windows, SysUtils, Forms, ShellApi;

{$R *.res}

function RunFile(const FileName, Params, DefaultDir: string;

ShowCmd: Integer): THandle;
var

zFileName, zParams, zDir: array[0..79] of Char;

begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

begin
RunFile('1.txt','text_file','d:\1.txt', SW_SHOWNORMAL);
end.

При запуске данной проги винда пишет данную ошибку:
Exception EAccessViolation in module zapusk.exe at 00047737.
Access violation at address 00447737 in module zapusk.exe.
Read of address 00000180.
Прошу подсказать мне ошибку и какая процедура для exe. файлов,
одному мне в 29 лет очень сложно начинать изучать дельфи...