在delphi7.0 或 5.0 中，访问mysql数据库，
表customer主键cus_id
我想实现表中记录复制在同表中，针对该表可以实现规避主键重复问题，但是如果表示动态的，主键也未知，怎么办？
重点是要解决：如何判断该字段是否是该表中的主键。
扩展：如果是联合主键有怎么解决？？？？
下面是我写的程序
mtable:Ttable 连接customer 表


procedure TForm1.copytable(tablename:string);
var gethead:array of variant;
i:integer;
begin
if mtable1.FieldCount<>0 then
begin
setlength(gethead,mtable1.FieldCount);
for i:=0 to mtable1.fieldcount-1 do
begin
gethead[i]:= mtable1.Fields.Fields[i].value;
end;
mtable1.append;
for i:=0 to mtable1.fieldcount-1 do
begin
mtable1.fields.fields[i].value:=gethead[i];

end;
end;
end;