Eigene Deklaration

[jaenicke]

Du schreibst deinen Quelltext in eine eigene Prozedur und rufst diese auf:

Delphi-Quellcode:

type
  TFmMain = class...
  ...
  private
    procedure SaveToFile(FileName: String);
  end;

implementation

procedure TFmMain.SaveToFile(FileName: String);
var
  i: Integer; 
  ini: TIniFile; 
begin 
  while Metext.Lines.Count < 46 do
  begin 
    metext.Lines.Add('');
  end; 
  ini := tinifile.Create(FileName); 
  try 
    for i := 0 to 46 do 
      ini.WriteString('ToDoMemo', IntToStr(i), metext.Lines[i]); 
  finally 
    ini.Free; 
  end; 
end;

procedure TFmMain.FormClose(Sender: TObject; var Action: TCloseAction); 
begin
  SaveToFile('C:\ToDoJH.ini');
end;

// EDIT:
Wobei ein absolutes Verzeichnis schlecht ist.
An das Verzeichnis deiner Exe kommst du mit ExtractFilePath(ParamStr(0)), das ist zwar auch nicht optimal, aber besser als es direkt unter c: zu legen.