Hola, yo anduve haciendo experimentos en ese aspecto durante mis ratos libres, aqui un ejemplo, espero que le sirva
Código Delphi
[-]procedure TPadre.loadFromDB(CodPadre: String);
var
SQLStr: string;
ADataSet: TDataSet;
begin
sqlStr:= 'select * from padre where codpadre = ' + QuotedStr(CodPadre);
TDMDBManager.GetSQLDataSet(SQLStr, ADataSet); fCodPadre := ADataset.fieldByName('CODPADRE').AsString;
fNombres := AdataSet.FieldbyName('NOMBRESPADRE').AsString;
fSexo := ADataSet.FieldbyName('SEXO').AsInteger;
fTipoDocumento := ADataSet.FieldByName('TIPODOCUMENTO').AsInteger;
fEstadoCivil := ADataSet.FieldByName('ESTADOCIVIL').AsInteger;
fFechaNac := ADataSet.FieldbyName('FECHANACIMIENTO').AsDateTime;
fDescPadre := ADataSet.FieldByName('DESCPADRE').AsString;
LoadChilds; end;