如何判断和创建表

Question

function TableList :  TStringlist;
var
  TablesList : TStringList;
begin
  TablesList := TStringList.Create;
  TablesList.Clear;
  Datamod.Dbconnect.GetTableNames(TablesList,False);
  Result := TablesList;
end;function FieldList :  TStringlist;
var
  FieldsList : TstringList;
  i : integer;
begin
  FieldsList := TStringList.Create;
  FieldsList.Clear;
  with Datamod.Qsample do
  begin
    Open;
    for i:=0 to Fieldcount-1 do
    begin
      FieldsList.Add(Fields[i].FieldName);
    end;
  end;
  Result := FieldsList;
end;