Topic: FindComponent
мне нужно установить фокус на заранее не известный компонент
либо TMemo либо TEdit....
procedure Form1_pQuestionQuect_OnMouseEnter (Sender: TObject);
var
sTC:Tcomponent;
begin
if (Form1.TagString <> '') then begin
sTC:=Form1.FindComponent(Form1.TagString);
TMemo(sTC).SetFocus;
end;
end;