if then

[[Caral]]

Hola
Lo que dice el Maestro Roman, pero a lo tuyo.

Código Delphi [-]
if DBText8.Caption = UpperCase(Edit1.Text) then 
begin
DBText8.Font.Color:= (clLime);
DBText8.Font.Style:= [fsBold];
end;

Otro:

Código Delphi [-]
if DBText8.Caption = UpperCase(Edit1.Text) then 
begin
With DBText8 do 
begin
Font.Color:= (clLime);
Font.Style:= [fsBold];
end;
end;

Saludos
PD: Me alegra mucho verte mas activo Maestro y amigo Roman.