var
dSysTime : SystemTime ;
begin
with query1do
begin
Close;
Sql.Clear;
Sql.Add('select getdate() as cur_date');
Open;
showmessage(Datetimetostr(Fieldbyname('cur_date').value));
DateTimeToSystemTime(Fieldbyname('cur_date').value,dSysTime);
SetLocalTime(dSysTime);
end;
end;