if Application.Active then
  form1.Caption := 'active'
else
  form1.Caption := 'not active';