[Moises22]

El Codigo es el siguiente:

Código Delphi [-]
 
unit administracionvvs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellApi, ExtCtrls, Buttons,CoolTrayIcon, TextTrayIcon,
Menus,uiapp, BarMenus,Unit3 ;
type
TForm1 = class(TForm)
Image3: TImage;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox1: TGroupBox;
Image2: TImage;
Image4: TImage;
fondo: TImage;
CoolTrayIcon1: TCoolTrayIcon;
PopupMenu1: TPopupMenu;
Salir2: TMenuItem;
popupvvs: TBcBarPopupMenu;
AbrirMenu1: TMenuItem;
sdfsdfsd1: TMenuItem;
sdfsdf1: TMenuItem;
sdfsd1: TMenuItem;
Salir3: TMenuItem;
BitBtn6: TBitBtn;
procedure Image3Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Abrir1Click(Sender: TObject);
procedure Salir2Click(Sender: TObject);
procedure CoolTrayIcon1DblClick(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image3Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/inmo'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/inmo'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/contacta.htm'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/contacta.htm'), nil, SW_SHOWNORMAL);
end;
 
 
procedure TForm1.Abrir1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.Salir2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
Form3.Show;
end;
end.

Seguro que es alguna tonteria que se me ha pasado.Por cierto, en cuanto a la ultima respuesta, e quitado la unidad uiapp y hace lo mismo.

Con respecto a la Unit3, no tiene nada, es un Form vacio que se llama Form3.