johnny_mail

procedure TForm1.Button1Click(Sender: TObject);
var
    FileHandle:Integer;
    RC:TextFile;
    str: string;
begin
    if not FileExists('C:\*.txt') then
    begin
        FileHandle := FileCreate('C:\*.txt');
        FileClose(FileHandle);
    end;
    str := listbox1.Items.Text;
    AssignFile(RC,'C:\*.txt');
    append(RC);
    writeLn(RC,Str);
    closefile(RC);
end;
这样试试，路径可以是相对的、绝对的或是用savedialog控件来指定