[AND_REY]

StringReplace рулит)

Код:

Var
 S: String;
 P: Boolean;
 i: Integer;
begin
 P:= True;
 For i:= 0 To Memo1.Lines.Count - 1 Do
  begin
   S:= StringReplace(Memo1.Lines.Strings[i], Edit1.Text, Edit2.Text, [rfReplaceAll, rfIgnoreCase]);
   if S <> Memo1.Lines.Strings[i] Then P:= False;
   Memo1.Lines.Strings[i]:= S;
  end;
 if P Then Memo1.Lines.Add(Edit1.Text);
end;