在pascal或delphi里可不可以打开一个文件并接在下面写入，如果可以要怎么操作？

1、我不要把原来文件的内容删除。

2、打开的一个文件写一点数据进去然后就要关闭，但在程序接下来的运行过程中还要再多次打开它并接下去写入数据。而不是程序运行过程中始终打开着的文件。

3、如果哪位大侠知道如何做，可不可以给一个详细的操作说明

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

MyTextFile : TextFile;

ALine : string;

J :integer;

begin

ALine := 'hoho';

AssignFile(MyTextFile,'C:\test.Txt');

Append(MyTextFile);

try

Writeln(MyTextFile,ALine);

finally

CloseFile(MyTextFile);

end;

end;

end.

实际上就是以Append方式打开文件然后writeln就可以了，完成后再Closefile

请确保C:\test.txt文件的存在，不然会报错的