mas3:array[1..m] of ticqclient;
mas3[4].Create(nil); // Ну, или как там конструктор называется...
mas3[4].UIN := ...
mas3[4].Password := ...
mas3[4].Login;
for z:=1 to i do
begin
mas3[z].create(nil);
mas3[z].uin:=.....;
mas3[z].password:=.....;
mas3[z].login;
end;
mas3[z] := TIcqClient.create(nil);
procedure TForm1.myOnMessageRecv(Sender: TObject; Msg, UIN: String);
begin
// делаешь то, что тебе надо
end;
...
mas3[z].login;
mas3[z].OnMessageRecv := myOnMessageRecv;
...
Procedure TForm1.myonlogin(sender:TObject);, компилятор тебе говорит, что он не нашел реализации этого метода...
begin
...
end;
if not(mas3[valid1[ab]].LoggedIn) then ...
FGender := GetInt(Pkt, 1); // The user's gender. 1 = female, 2 = male, 0 = not specified., с TimeZone чуть сложнее:
var
S: String;
// ...
S := IntToStr(- ShortInt(TimeZone) div 2) + ':' + IntToStr(Abs(ShortInt(TimeZone) mod 2 * 30));
const, где Value представляет название страны, для которой телефонный код хранится в Ident. К примеру, 1 = USA, 7 = Russia, 711 = Uzbekistan, и так далее... Для конвертации кода страны в название есть функция
Countries: array[0..242] of record Ident: Word; Value: String end = ...
function CountryToStr(Value: Word): String;, кстати...
b := byte(-2 * shortint(th)) + (tm div 30) * (1 - 2 * (byte(th >= 0)));