[borockov]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s1,s2,s3:string;
begin
s1 := lb1.Items.Text;
for i := 0 to lb1.Items.Count - 1 do begin
  s2 := lb2.Items[i];
  s3 := lb3.Items[i];
  s1 := StringReplace(s1, s2, s3, [rfReplaceAll, rfIgnoreCase]);
end;
lb1.Items.Text := s1;
end;

А как то так? Но вылетает ошибка "list index out of bounds(2)"