Mist nur wo?
Wie wird die TextLength definiert? Vllt liegt da ja der Fehler .
Bei mir sieht das folgendermaßen aus:
Textlength := Length('FileContens.text');

TextLength müsste doch die Länge des zu ersetzenden Strings sein, wenn ich Deinen Code richtig gedeutet habe.

Ja eigentlich schon.
Mir ist jetzt grade nur noch aufgefallen das egal was ich verändere an textpos und textlengeh , das Programm fügt den Wert immer an der selben Stelle ein ,also immer an der falschen.

Dann versuch es doch einfach mal mit StringReplace.

Als fehler gibt er mir das an :[Fehler] Unit1.pas(41): Inkompatible Typen: 'String' und 'TStringList'

Was übergibst Du denn als Parameter?

Ich hab immer noch alles wie beim alten.

procedure TForm1.Button1Click(Sender: TObject);
var

FileContents: TStringList;
textPos,textlength: integer;
begin
FileContents := TStringList.create;
Textlength := Length('FileContens.text');


FileContents.LoadFromFile(OpenDialog1.FileName);
TextPos := Pos('FileContents.Text','##content##') ;
FileContents := StringReplace(FileContents, ##content##, Memo1.Text,[]); ;
ShowMessage(Copy(FileContents.Text, TextPos, TextLength ));

Memo2.Lines.LoadFromFile('text1.txt');
FileContents.SaveToFile('text1.txt');
FileContents.Free;




end;

Achso, dann muss es so heißen:

Ah, danke danke und nochmals ein danke für die schnelle und freundliche Hilfe.