procedure TextOnClick(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', ExpandConstant('{src}\text.txt'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end;