Zwei Anmerkungen:
1.
Delphi-Quellcode:
CloseFile(myFile);
Reset(myFile);
CloseFile(myFile);
das Reset() und das 2te CloseFile() sind überflüssig
2. Normalerweise wäre der Code um eine minimlae Fehlerbehandlung zu ergänzen, also z.B.
Delphi-Quellcode:
AssignFile(myFile,'DATEINAME');
{$I-} rewrite(myFile); {$I+}
if ioResult<>0 then ShowMessage('Fehler'
else begin
WriteLn(myFile, 'STANDARTTEXT ', adresse); || Bei adresse soll der Text aus dem Edit1 hinkommen
WriteLn(myFile);
end;
CloseFile(myFile);