EncodeDate

Junta valores de ano, mês e dia formando uma data. No exemplo, estamos informando um valor às variáveis dia, mês e ano, e, a partir da função EncodeDate() iremos concatenar esses valores no formato de data, que será armazenada na variável data.

Exemplo:

procedure TForm2.Button1Click(Sender: TObject);
var
 dia, mes, ano: Word; data: TDateTime;
begin
 ano := 2015;
 mes := 2;
 dia := 15;
 data := EncodeDate(ano, mes, dia);
 lblData.Caption := 'Data: ' + DateToStr(data);
end;