怎样在程序运行的时候加上参数，比如说双击文本文件打开记事本

//以下过程可使你双击文本文件时自动打开你的程序,当然，你要先设置程序的参数，点"run-paratmers"（我在网吧上网，所以不知道有没有写错)
uses TRigestryprocedure RegistryFile;
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  try
    reg.RootKey=HKEY_CLASS_ROOT;  //查一下注册表有没有写对
    reg.open('txtfile\shell\open\command',false);
    reg.WriteString('',Application.exename+', 1%') //查一下注册表，不知道有没有写错
    reg.closekey;
  finally
    reg.Free;
  end;
end;procedure TForm1.Create(....)
begin
  if FileExists(ParamStr(1)) then
    Memo1.Lines.LoadFromFile(ParamStr(1)):
end;