procedure TForm1.TextoChange(Sender: TObject);
var
Posicion : integer;
begin
if
Texto.Lines.Text:=('Hola')
then
begin
Posicion:=ansipos('Hola',Texto.Lines.Text);
Texto.SelStart:=Posicion-1;
Texto.SelLength:=Length('Hola');
Texto.SelAttributes.Color:=clred;
Posicion:=ansipos('Hola',Texto.Lines.Text);
end
else
Texto.SelAttributes.Color := clblack;
end;