[Cros]

Код:

Procedure Form1.Timer1_Timer(Sender TObject);
var i:longint; //Кол-во секунд в интернете
begin
timer1.interval=1000; //Одна секунда
i:=i+1; //+1 секунда
end;

lmikle: пользуемся тегами.