Code:

procedure TForm1.ActiveControlChange(Sender: TObject);

{©Drkb v.3(2007): www.drkb.ru}

begin

Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Screen.OnActiveControlChange := ActiveControlChange;

end;