مشكلة في rewrite

[AX302]

وعليكم السلام اخي
تفضل هدا مثال بسيط ة يمكنك عمل هدا بعدة طرق...

PHP كود :

=============================================
program Project1;
{$APPTYPE CONSOLE}
uses
Classes;
const
New_String = 'My New String Here';
var
Old_File : TStringList;
begin
 Old_File := TStringList.Create;
 try
 Old_File.LoadFromFile('old.txt');
 Old_File.Add(New_String);
 Old_File.SaveToFile('old.txt');
 finally
  Old_File.Free;
 end;
end.