Подскажите по Label

[Михаил Юрьевич]

Подскажите вот такой вопрос:у меня на форме
три SpinEdit и Label,в Label отображается
число,месяц и год которое соответственно каждый день меняется
в формате- 31.05.2008,в SpinEdit1 я набираю число,
в SpinEdit2 я набирая месяц,а в SpinEdit3 я набираю год.
Подскажите как мне проверять набранное мной число
с числом в Label ,ведь в Label показывает 31.05.2008,а
в трех SpinEdit: SpinEdit1.Vaue:=31; SpinEdit2.Vaue:=5;
SpinEdit3.Vaue:=2008;
Если можно напишите код

[Gorychev]

Используй функцию Сopy

if copy(Label1.Caption, 1, 2) = Spinedit1.text then......
if copy(Label1.Caption, 4, 2) = Spinedit1.text then....
if copy(Label1.Caption, 7, 4) = Spinedit1.text then.....

[D-mon]

procedure TForm2.Button1Click(Sender: TObject);
Var year, mounth, day:word;
begin
DecodeDate(StrToDate('12.12.2006'), year, mounth, day);
ShowMessage(IntToStr(day)+' '+IntToStr(mounth)+' '+IntToStr(year));
end;