TFile.AppendAllText

public class procedure TFile.AppendAllText(

  const aPath: string;

  const aContents: string

); overload;

class procedure TFile.AppendAllText(

  const aPath: string;

  const Contents: string;

  const Encoding: TEncoding

); overload;