{
Get string like 2006.09.21-00:12:30
}
function GetDateTime(ms:Real):String;
var s:String;
begin
 s:='';
 s:=Str(ms2sec(ms))+s;   while Length(s)<2  do s:='0'+s; s:=':'+s;
 s:=Str(ms2min(ms))+s;   while Length(s)<5  do s:='0'+s; s:=':'+s;
 s:=Str(ms2hour(ms))+s;  while Length(s)<8  do s:='0'+s; s:='-'+s;
 s:=Str(ms2day(ms))+s;   while Length(s)<11 do s:='0'+s; s:='.'+s;
 s:=Str(ms2month(ms))+s; while Length(s)<14 do s:='0'+s; s:='.'+s;
 s:=Str(ms2year(ms))+s;  while Length(s)<19 do s:='0'+s;
 GetDateTime:=s;
 s:='';
end;
