帮我看看错在哪里

[mikejakeson]

我想实现的是每个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'

[jy_1201]

设置Edit的属性MasLength为2

[symsss]

设置Edit的属性MasLength为2

[mikejakeson]

如果不满两位，前一个要为零该怎么弄？
如：输入 2 显示的时候为02

[longki]

两个Up都可以，错误和程序我对应不起来！

[xzq111]

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