[goodvin1709]

сек тестону
))

Добавлено через 11 минут
Чтото неработает вечно пишет 0
ну я делаю так

const
nick = 'NameAlreadyExis';
Var
Labelka3:TLabel;
D : integer;
procedure Init;
begin
D:=0; // зломана при заточке на 7
Labelka3 := TLabel.Create(Main);
Labelka3.Parent:=main;
Labelka3.left:=10;
Labelka3.Top:=50;
Labelka3.caption:='Зломано з +6 на +7:';
Labelka3.left:=11;
Labelka3.Top:=50;
Labelka3.caption:= vartostr(D);
end;

procedure Free;
begin
Main.free;
end;

Procedure LomNa7 ;
begin
if (fromServer) and (connectname=nick) and (pck[1]=#$64) and (pck = HStr('64 41 00 00 00 02 00 00 00 01 00 00 00 06 00 00 00 03 00 00 00 E9 18 00 00')) then
begin
inc(D,1);
SendMSG('Зломано на +7');
delay(500);
SendMSG(vartostr(D));

end;
end;

Добавлено через 20 минут
и как зделаь еще чтобы форму незя было изменять розмер ее )

Добавлено через 36 минут
Короче решыл зделать скоко скрипт работает но возникла проблема
Var
Sec : Integer;
Min : Integer;
Hour : Integer;
timer1 : TTimer ;
Procedure Init;
Hour:=0; //Час
Min:=0; //Минута
Sec:=0; //Секунда


timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=1000;
end;

Procedure OnTimer1;
begin
Inc(sec);
if (Sec>59) then
begin
Inc(Min);
Sec:=0;
if (Min>59) then
begin
Inc(Hour);
Min:=0 ;
end;
end;
End;

И сразу крит ПХ