sigo sin entender porq dices que el open esta en el create y lo colocas alli, porq no pruebas esto:
Código Delphi
[-]TblContacto.Active := True;
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;