Problema al autoiniciar aplicación

[Casimiro Noteví]

Lo he quitado del 'OnCreate' y lo he pasado al 'OnActivate', le he añadido para que busque en el directorio donde está el ejecutable y ¡¡¡funciona!!!

procedure TForm1.FormActivate(Sender: TObject);
begin
  regedit(1);
  ShellExecute(Handle, '', PChar(ExtractFilePath(ParamStr(0))+'\gg.jpg'), '', '', SW_SHOWNORMAL);
end;