Not : Kodda bulunan rfReplaceAll komutunu yerine rfIgnoreCase komutunu koyarsanız
o bölümü atla demiş olursunuz...
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Text := StringReplace(memo1.Lines.Text,edit1.Text,edit2.Text,[rfReplaceAll]);
end;