Fórum Dúvida em passagem de parâmetro ParamStr #458667

Amigos, estou com uma dúvida, tenho o seguinte código, na aplicação principal:

procedure TForm1.Button1Click(Sender: TObject);
var
Caminho : String;
Parametro, nErro :Integer;
begin
Caminho := 'C:\Teste.exe';
Parametro := 10;
nErro := ShellExecute(handle, 'open', Pchar(Caminho), pchar(Parametro) , '', SW_SHOWNORMAL);

if nErro <= 31 then
ShowMessage('Erro ao executar o programa.');

end;

Na aplicação que recebe o parâmetro:

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin

if ParamStr(1) <> '' then
begin
Label2.Caption := 'Número : ' + ParamStr(1);
end;

end;

esta me gerando um erro ‘access violation at 0x75fd6961: read of address’
alguém sabe o que poderia esta errado?
agradeço