uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, nil, 'C:\WINDOWS\START MENU\DELPHI\Delphi3.lnk',
    nil, nil, SW_SHOWNORMAL);
end;