begin
    if Table.Exists then Table.DeleteTable;
    Table.FieldDefs.Clear;
    Table.FieldDefs.Add('id',ftAutoInc,0,False);
    Table.FieldDefs.Add('name',ftString,20,False);
    Table.CreateTable;
    Table.Open;

    Table.Append;
    Table.FieldByName('name').AsString := 'John';
    Table.Post;
   end;