{
Get string like 2006.09.21-00:12:30
}
procedure GetDateTime(var s:String);
var ms:Real;
begin
 s:='';
 ms:=msecnow;
 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;
end;
