ChangeFile kullanımı

procedure EditWinIni;

var  FileName: string;         { storage for file name }

begin  FileName := 'c:\Program Files\MyProgram\MyFile.ini'       { set the file name }

with Form1.Memo1.Lines do  begin

LoadFromFile(FileName);     { load from file }

SaveToFile(ChangeFileExt(FileName, '.bak'));       { save into backup file }

end;

end;