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:
Código:
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