está tal cual, solo que en el create está el Open y despues el Post
Código Delphi
[-]
TblContacto.Open
TblContacto.AppendRecord([NIL,NICK.Text,NOMBRES.Text,APELLIDOS.Text,TEL_PER.Text
,TEL_LAB.Text,TEL_MOV.Text,DIRECCION.Text,CIUDAD.Text
,MAIL_PER.Text,MAIL_LAB.Text,MAIL_ADD.Text
,FECHA_NAC.Date,ToBMP(ImgFoto.Picture.Graphic),NOTAS.Lines]);
TblContacto.Post;