1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm3.Button1Click(Sender: TObject);
var file1 : TStringlist;
begin
if not (pos(edit1.text, edit2.text) >0) then
begin
 showmessage('Ungültige Zeile!');
 exit;
end
else
begin
 j:=StrToInt(edit1.text);
 file1:=TStringlist.Create;
 file1.LoadFromFile(Unit2.Dateipfad);
 file1[j]:=StringReplace(file1[j], Unit1.antwort, Unit1.new, [rfReplaceAll]); //hier liegt der fehler
 file1.SaveToFile(Unit2.Dateipfad);
 file1.free;
 Close;
 exit;
end;
end;					

1:
2:

ShowMessage('"' + file1[j] + '"'#13#10'"'
  + Unit1.antwort + '"'#13#10'"' + Unit1.new + '"');					

1:
2:

MemoX.Text := '"' + file1[j] + '"'#13#10'"' 
  + Unit1.antwort + '"'#13#10'"' + Unit1.new + '"';