Cosmetic

newtable.pas

@@ -43,6 +43,7 @@ type
   private
     FDBIndex: Integer;
     function Validate: Boolean;
+    // Get field count using stringgrid count
     function GetFieldsCount: Integer;
     function GetClosestType(ATypePart: string): string;
     { private declarations }

systables.pas

@@ -108,6 +108,7 @@ type
     // Gets all index info for a certain database
     function GetAllIndices(dbIndex: Integer; List, TablesList: TStringList): Boolean;
 
+    // Gets index names associated with a primary key
     function GetPrimaryKeyIndexName(dbIndex: Integer; ATableName: string; var ConstraintName: string): string;
 
     function GetIndexInfo(dbIndex: Integer; ATableName, AIndexName: string;

tablemanage.pas

@@ -268,10 +268,10 @@ begin
   Delete(Fields, Length(Fields), 1);
 
   if Trim(Fields) = '' then
-    MessageDlg('Error', 'Your should select one field at least', mtError, [mbOk], 0)
+    MessageDlg('Error', 'You should select at least one field', mtError, [mbOk], 0)
   else
   if Trim(edIndexName.Text) = '' then
-    MessageDlg('Error', 'Your should enter new index name', mtError, [mbOk], 0)
+    MessageDlg('Error', 'You should enter the new index name', mtError, [mbOk], 0)
   else
   begin
     QWindow:= fmMain.ShowQueryWindow(FDBIndex, 'Create new index');