Gracias por el jalón de orejas Román, al final esto fue lo más compacto que pude hacer:
Código Delphi
[-]
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
Begin
If Components[i] is TcxDBTextEdit Then
TcxDBTextEdit(Components[i]).Text := '';
End;