delphi ShellExecute 执行cmd命令并获取结果

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShellExecute(0, nil, 'cmd.exe', '/C find "320" in.txt > out.txt', nil, SW_HIDE);

  Sleep(1000);

  Memo1.Lines.LoadFromFile('out.txt');

end;