procedure TMyTable.ExportToASCII;
var
 I: Integer;
 Dlg: TSaveDialog;
 ASCIIFile: TextFile;
 Res: Boolean;
begin
 if Active then
  if (FieldCount > 0) and (RecordCount > 0) then
  begin
  Dlg := TSaveDialog.Create(Application);
  Dlg.FileName := FASCIIFileName;
  Dlg.Filter := 'ASCII-Fiels (*.asc)|*.asc';
  Dlg.Options := Dlg.Options+[ofPathMustExist,
  ofOverwritePrompt, ofHideReadOnly];
  Dlg.Title := 'Экспоритровать данные в ASCII-файл';
  try
  Res := Dlg.Execute;
  if Res then
  FASCIIFileName := Dlg.FileName;
  finally
  Dlg.Free;
  end;
  if Res then
  begin
  AssignFile(ASCIIFile, FASCIIFileName);
  Rewrite(ASCIIFile);
  First;
  if FASCIIFieldNames then
  begin
  for I := 0 to FieldCount-1 do
  begin
  Write(ASCIIFile, Fields[I].FieldName);
  if I <> FieldCount-1 then
  Write(ASCIIFile, FASCIISeparator);
  end;
  Write(ASCIIFile, #13#10);
  end;
  while not EOF do
  begin
  for I := 0 to FieldCount-1 do
  begin
  Write(ASCIIFile, Fields[I].Text);
  if I <> FieldCount-1 then
  Write(ASCIIFile, FASCIISeparator);
  end;
  ;
  if not EOF then
  Write(ASCIIFile, #13#10);
  end;
  CloseFile(ASCIIFile);
  if IOResult <> 0 then
  MessageDlg('Ошибка при создании или переписывании '+
  'в ASCII-файл', mtError, [mbOK], 0);
  end;
  end
  else
  MessageDlg('Нет данных для экспортирования.',
  mtInformation, [mbOK], 0)
 else
  MessageDlg('Таблица должна быть открытой, чтобы данные '+
  'можно было экспортировать в ASCII-формат.', mtError,
  [mbOK], 0);
 end;