[AND_REY]

Так работает:

Код:

var
 i: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form1.Handle = GetForegroundWindow Then
 begin
  inc(i);
  Label1.Caption:= IntToStr(i);
 end;
end;