Create Tables Detail/Master in Sql Server 2000 With Code

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'Create Table MasterTable ' +
    '(FieldName Primary Key);';
  ADOCommand1.Execute;
  ADOCommand1.CommandText := 'Create Table Detailtable ' +
    '(Fieldname Primary Key Refrenced Mastertable(Fieldname));';
  ADOCommand1.Execute;
end;