帮我看看错在哪里

Question

我想实现的是每个edit.text 的输入控制在两个字符
procedure TfrmSetTime.btnSetTimeClick(Sender: TObject);
var
  // shuzu:  array of byte;
   Temp:string;
   lrc:LongWord;
   str:string;
begin
    //  shuzu[0]:= strtoint(edtyear.text);
    //  shuzu[1]:= strtoint(edtmonth.text);
    //  shuzu[2]:= strtoint(edtday.text);
    //  shuzu[3]:= strtoint(edthour.text);
    //  shuzu[4]:= strtoint(edtmin.text);
    //  shuzu[5]:= strtoint(edtsecond.text);     // if(hComm=0) then exit;
    //  temp:= edtyear.text+edtmonth.text +edtday.text+edthour.text +edtmin.text
    //          +edtsecond.text;      Temp:= 'AA'+format('%2',edtsecond.text)+ format('%2',edtmin.text)+format('%2',edthour.text)
              +format('%2',edtday.text) +format('%2',edtmonth.text)+format('%2'+edtyear.text);
      ShowMessage(Temp);
      //WriteFile(hComm,PChar(Temp)^,Length(Temp),lrc,nil);end;错误提示为：[Error] settime.pas(107): Incompatible types: 'Array' and 'TCaption'

Answer 1

只有自己写程序了，再onexit中写
begin
if length(edit1.text)<2 then
   edit1.text:='0'+edit1.text;
end;