diff --git a/packages/odbc/src/odbcsql.inc b/packages/odbc/src/odbcsql.inc
index b45bba98f8..76eb5c294e 100644
--- a/packages/odbc/src/odbcsql.inc
+++ b/packages/odbc/src/odbcsql.inc
@@ -1710,7 +1710,7 @@ Function TimeStampStructToDateTime( B :  PSQL_TIMESTAMP_STRUCT) : TDateTime;
 begin
  With B^ do
    Result:=EncodeDate(Year,Month,Day)+
-           EncodeTime(Hour,Minute,Second,0);
+           EncodeTime(Hour,Minute,Second,Fraction div 1000000);
 end;
 
 Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime;