szukalem i nie znalazlem odpowiedzi dlatego daje tego posta:
Jest problem z bledami
KOD:
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with SynMemo1 do
begin
if SelLength <> 0 then //PIERWSZY BLAD (Undeclared identifier: 'SelLength' oraz Comparing signed and unsigned types - widened both operands)
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, //DRUGI BLAD (Undeclared identifier: 'FindText') [stMatchCase]);
if FoundAt -1 then //TRZECI BLAD (Type of expression must be BOOLEAN)
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;