procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open','http://samplecode.ru', nil, nil, SW_RESTORE);
end;