Konverzia stringu na dátum.

var 
 D1, D2, D3 : TDateTime; 
begin 
 D1 := VarToDateTime('December 6, 1969'); 
 D2 := VarToDateTime('6-Apr-1998'); 
 D3 := VarToDateTime('1998-Apr-6'); 
 ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+DateToStr(D3)); 
end;