تلوين البحث و التغيير Search And Replace

[cargem]

هناك مشكلة!!
عندما تكون الكلمة المستبدلة مشابهه للكلمة الاصلية يحدث تعليق ولا يتوقف while loop
وهذا مثال

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
begin
  SearchAndReplace_color(redt1, 'SDK', 'mSDKb', Col[1]);
end;