Using the advGridReplaceDialog component

[brunofierens]

Drop a TAdvStringGrid and TAdvGridReplaceDialog on the form.
Add the code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AdvGridReplaceDialog1.Grid := AdvStringGrid1;
  AdvGridReplaceDialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvStringGrid1.RandomFill(false, 100);
end;

See result here