pme děkují moc.
Po několika upravach docela spokojen.
Jan ještě 2 dotazy.
1. Byl by problem docilit toho aby ta žluta barva podkladu byla přes cely řadek.
2. Jak vratim po ukončeni hledaní vše do puvodniho stavu.
Moh bych znovu načis text soubor ale takto to řešit nechci.

procedure TForm1.Button3Click(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
Format.cbSize := SizeOf(Format);
Format.dwMask := CFM_BACKCOLOR;
Format.crBackColor := clYellow; //pozadie nájdeného textu = žlté

with RichEdit1 do
begin
StartPos := RichEdit1.SelStart + Length(edit1.Text);
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(edit1.Text, StartPos, ToEnd, []);
while FoundAt <> -1 do
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(edit1.Text);
SelAttributes.Color := clRed; //farba nájdeného textu
Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
StartPos := SelStart + SelLength;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(edit1.Text, StartPos, ToEnd, []);
exit;
end;
SelStart := 0; // skok na začiatok
Sellength := 0;
end;
end;

P.S. "Jo a zas se někdy stav..." (Nebaví ma odpovedať, keď sa ukážeš raz za deň, venuj sa tématu a odpovedaj/pýtaj sa hneď!)