[AND_REY]

Ответ на первый вопрос:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Sl: TStringList;
 Ts: String;
 i, j: Integer;
begin
 Sl:= TStringList.Create;
 Sl.LoadFromFile('C:\1.txt');
 For i:= 0 To Sl.Count - 1 Do
  begin
   Ts:= Sl.Strings[i];
   For j:= 1 To Length(Ts) Do if Ts[j] = Edit1.Text[1] Then Ts[j]:= Edit2.Text[1];
   Sl.Strings[i]:= Ts;
  end;
 Sl.SaveToFile('C:\1.txt');
 Sl.Free;
end;