procedure
TForm1.Button1Click(Sender: TObject);
var
st,
formatsave : string;
DT : TDateTime;
begin
st := Edit1.text; // '1996-06-03
00.00.00'
formatsave := ShortDateFormat;
ShortDateFormat := 'yyyy.mm.dd
hh.mm.ss';
while pos ('-', st) > 0 do
st [pos ('-', st)] := '.';
DT := StrToDateTime (st);
ShortDateFormat := formatsave;
Label1.Caption := DateTimeToStr (DT);
end;