كيف استخرج من datetimepicker

[kachwahed]

السلام عليكم
جرب API:

PHP كود :

function GetDatePart(dtp: TDateTimePicker; DatePart: string): string;
var
  len: Integer;
begin
  len := Length(DatePart)+1;
  dtp.Format := DatePart;
  SetLength(Result, len);
  GetWindowText(dtp.Handle, @Result[1], len);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetDatePart(DateTimePicker1, 'yyyy')); 


بالتوفيق.