Можно использовать
WinExec или
ShellExecute:
Код
uses ShellAPI;
…
var
h: hwnd;
begin
// Используем ShellExecute ( 1-ый способ )
if ShellExecute(h, 'open', 'readme.txt', nil, nil, SW_SHOW) < 32 then
begin
ShowMessage('Немогу выполнить ShellExecute !')
end;
// Используем WinExec ( 2-ой способ )
if WinExec('Notepad c:\config.sys', SW_SHOW) < 32 then
begin
ShowMessage('Немогу выполнить WinExec !')
end;
end;