[AND_REY]

Так что ли:

Код:

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