>>116
とりあえず、'C:\File.txt'に保存する例。

procedure TForm1.Button1Click(Sender: TObject);
var
　F: TextFile;
begin
　AssignFile(F, 'C:\File.txt');
　Rewrite(F);
　try
　　Write(F, Edit1.Text);
　finally
　　CloseFile(F);
　end;
end;