No v 17 rokach si toho člověk moc planovat nemuže.
Pokud napišu rano dotaz, pak škola, povinnosti a k PC se dostanu až večer.
Sobota a neděle Naši řeknou jedem na chatu a jsem v ?????
Vubec je nezajima že musim sedět na netu a čekat až mi pme poradí

uses RichEdit;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
  Format: CHARFORMAT2;
  Line: Integer;
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 := 0;
    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 červená
//      SelAttributes.Style := [fsBold];  //ak chceš písmo bude tučné
//      SelAttributes.Size := 14;   // veľkosť fontu
      Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
      SelStart := Perform(EM_LINEINDEX, Line, 0) ;
      SelLength := Length(Lines[Line]) ;
      Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
      StartPos := SelStart + SelLength;
      ToEnd := Length(Text) - StartPos;
      FoundAt := FindText(edit1.Text, StartPos, ToEnd, []);
    end;
    SelStart := 0; // skok na začiatok
    Sellength := 0;
  end;
end;

procedure TForm7.Button2Click(Sender: TObject);
var
  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  Format.cbSize := SizeOf(Format);
  Format.dwMask := CFM_BACKCOLOR;
  Format.crBackColor := clWhite;
  with RichEdit1 do
  begin
    SetFocus;
    SelStart := 0;
    Sellength := Length(Text);
    SelAttributes.Color := clBlack;
    SelAttributes.Style := [];  //  nechcem tučné písmo
//    SelAttributes.Size := 14;   // veľkosť fontu
    Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
    SelStart := 0; // skok na začiatok
    Sellength := 0;
  end;
end;