类型转换问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SpinEdit1=formatdatetime('MM',Table1.FieldByName('日期').AsDateTime) then
   edit1.text:=formatdatetime('MM',Table1.FieldByName('日期').AsDateTime);
end;
end.
  错：
[Error] Unit1.pas(40): Incompatible types: 'String' and 'TSpinEdit'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 1

SpinEdit1是什么类型？
procedure TForm1.Button1Click(Sender: TObject);
var SpinEdit1:datetime;
begin
  if SpinEdit1=formatdatetime('MM',Table1.FieldByName('日期').AsDateTime) then
   edit1.text:=datetostr(formatdatetime('MM',Table1.FieldByName('日期').AsDateTime));
end;
end.

Answer 2

begin
  if SpinEdit1.text=formatdatetime('MM',Table1.FieldByName('日期').AsDateTime) then
   edit1.text:=datetostr(formatdatetime('MM',Table1.FieldByName('日期').AsDateTime));

Answer 3

'String' and 'TSpinEdit'
类型不匹配

Answer 4

if SpinEdit1.value=strtoint(formatdatetime('MM',Table1.FieldByName('日期').AsDateTime))