Как открыть текстовый файл в блокноте?

[Aleksandr]

Экспортирую список

if Application.MessageBox(PChar('Вы действительно хотите экспортировать список свободных IP в текстовый файл?'), 'Внимание!!!', MB_OKCANCEL)=id_OK
  then
  begin
  if SaveDialog1.Execute then begin
         listbox1.Items.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.txt'));
     end;
  end
 else
 exit;

А как открыть его в блокноте?

Вот что-то нашел буду думать

ShellExecute(0,'open',,'C:\Windows\system32\',SW_SHOW);