var
myDate : TDateTime;

begin
myDate := StrToDate('13/02/2002');
ShowMessage('myDate = '+DateToStr(myDate));
end;

sinon