const
  MAX_STR_LEN = 255;

var
  hTable: ADSHandle;
  usLength: Word;
  aucDOB: array[0..MAX_STR_LEN + 1] of Byte;
begin
  usLength := MAX_STR_LEN + 1;
  AdsGetDate(hTable, 'DOB', aucDOB, usLength);
end;