[DELPHI] Sfondo colorato per tutti i controlli TEdit della Form

[gabcaly]

Salve,

ho diversi campi TEdit e attraverso gli eventi onClick e onExit vorrei cambiare lo sfondo da bianco a giallo rispettivamente nelle situazioni di Focus e viceversa.

Siccome sono tanti esiste un modo per creare un evento gloablaizzato per tutti i campi ed evitare ke x ciascuno di essi crei delle istanze di eventi onClick e onExit ?

procedure TForm2.Edit1Click(Sender: TObject);
begin
    edit1.Color:=clYellow;
end;


procedure TForm2.Edit1Exit(Sender: TObject);
begin
    edit1.Color:=clWindow;
end; 

Vorrei evitare di generare procedure simili.

Grazie per il prezioso contributo.