var
DTTextValue: Text;
newTime: Time;
newDateYear: Integer;
newDatemonth: Integer;
newDateDay: Integer;
NewDate: Date;
begin
DTTextValue := '2005-02-09 13:30:36.493000000';
EVALUATE(newTime, COPYSTR(DTTextValue, 12, 11));
EVALUATE(newDateYear, COPYSTR(DTTextValue, 1, 4));
EVALUATE(newDatemonth, COPYSTR(DTTextValue, 6, 2));
EVALUATE(newDateDay, COPYSTR(DTTextValue, 9, 2));
NewDate := DMY2DATE(newDateDay, newDatemonth, newDateYear);
MESSAGE('%1..%2', NewDate, newTime);
end;