Considere o fragmento de código abaixo:

procedure...

Considere o fragmento de código abaixo:

procedure Formulario1.Botao1Click(Sender: TObject);
var
Data: TDateTime;
Ano, Mes, Dia : Word;
begin
Data:= StrToDate(Edit1.Text);;
DecodeDate(Data, Ano, Mes, Dia);
Label1.Caption := 'Hoje é o dia ' + IntToStr(Dia) + ' do
Mês ' + IntToStr(Mes) + ' do Ano ' + IntToStr(Ano);
end;
end.

Esse código foi programado usando a linguagem: