obtener el dia,mes y año

[sercornejov]

Hola.

la solución de ROMAN esta bien para ese caso, pero si la fecha llega a ser "1/1/2005" te puedes complicar (Claro el formato dice dd/mm/yyyy) pero como no se sabe de donde viene...

si implementas esto:

procedure TForm1.ButtonClick(Sender: TObject);
var
  fecha:TDate;
  aNo, Mes, Dia:Word;
begin
  fecha:=StrToDate(edit1.text);
  DecodeDate(fecha, aNo, Mes, Dia);
  Label1.Caption := 'Dia ' + IntToStr(Dia) + ' del Mes '
    + IntToStr(Mes) + ' del Año ' + IntToStr(aNo);
end;

debes colocar sysUtils en el uses del Form

Saludos desde Colombia