Moin m-werk,
im OnEnter bzw. OnExit Event kannst Du die Farbe zuweisen.
Dabei brauchst Du nur eine Routine, die Du dann jedem DBEdit zuweist.
Code:
[b]procedure[/b] TForm1.DBEdit1Enter(Sender: TObject);
[b]begin[/b]
[color=#000080]// Wenn das Feld den Fokus erhält die Farbe auf rot ändern[/color]
TDBEdit(Sender).Color := clRed;
[b]end[/b];
[b]procedure[/b] TForm1.DBEdit1Exit(Sender: TObject);
[b]begin[/b]
[color=#000080]// und wieder zurück auf weiss, wenn der Cursor das Feld verlässt[/color]
TDBEdit(Sender).Color := clWhite;
[b]end[/b];