Abrir archivo de texto con el bloc de notas

[noob]

Hola soy nuevo y he hecho una prueba en Delphi 6 con un TMemo y un TButton para que cuando pulse en el botón se me abra con el block de notas un archivo de texto y que se refleje en el TMemo también.

He metido este código en el evento OnClick del TButton basándome en esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  linea: string;
  St: Array[0..255] of char;
  SW_SHOW: longint;
begin
  SW_SHOW := 0;
  // Archivo está declarado como atributo privado del formulario --> Archivo: Text;
  System.Assign(Archivo,'prueba.txt'); 
  System.Rewrite(Archivo);
  System.Writeln(Archivo,'Hola');
  System.Close(Archivo);
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Formulario creado.');
  Memo1.Lines.Add('Archivo creado.');
  System.Reset(Archivo);
  System.Readln(Archivo,linea);
  Memo1.Lines.Add(linea);
  System.Close(Archivo);
  // Pongo en el uses ShellAPi para que reconozca ShellExecute
  ShellExecute(Handle,'open',StrPCopy(St,'C:\a\a.txt'),nil,nil,SW_SHOW);
end;

Pero lo único que ocurre es que se rellena el TMemo pero no se abre el archivo de texto con el block de notas.

Salu2.