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;
                   Next;
                   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;