大家帮忙看看哪里出错了

[a8196041]

procedure TForm1.bsSkinXFormButton1Click(Sender: TObject);
begin
bsskinedit1.Text:=inttostr(strtoint(bsskinedit1.Text)-1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
bsskinedit1.Text:=bsskinedit1.Text;
end;


procedure TForm1.bsSkinXFormButton2Click(Sender: TObject);
var a:textfile;
begin
assignfile(a,'c:\1.txt');
rewrite(a);
writeln(a,bsskinedit1.text);
closefile(a);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
a:textfile;
s:string;
begin
assignfile(a,'c:\1.txt');
reset(a);
readln(a,s);
bsskinedit1.Text:=(s);
closefile(a);
end;


procedure TForm1.bsSkinXFormButton3Click(Sender: TObject);
begin
bsskinedit2.Text:=inttostr(strtoint(bsskinedit2.Text)-1);
end;

procedure TForm1.bsSkinXFormButton4Click(Sender: TObject);
begin
bsskinedit3.Text:=inttostr(strtoint(bsskinedit3.Text)-1);
end;

procedure TForm1.bsSkinXFormButton5Click(Sender: TObject);
begin
bsskinedit4.Text:=inttostr(strtoint(bsskinedit4.Text)-1);
end;

procedure TForm1.bsSkinXFormButton6Click(Sender: TObject);
begin
bsskinedit5.Text:=inttostr(strtoint(bsskinedit5.Text)-1);
end;

procedure TForm1.bsSkinXFormButton7Click(Sender: TObject);
begin
bsskinedit6.Text:=inttostr(strtoint(bsskinedit6.Text)-1);
end;

procedure TForm1.bsSkinXFormButton8Click(Sender: TObject);
begin
bsskinedit7.Text:=inttostr(strtoint(bsskinedit7.Text)-1);
end;

procedure TForm1.bsSkinXFormButton9Click(Sender: TObject);
begin
bsskinedit8.Text:=inttostr(strtoint(bsskinedit8.Text)-1);
end;

end.

[阿三]

没看出什么来呀,你要问的是什么呀
在timer 中你的这句是什么意思呀,没懂.
bsskinedit1.Text:=bsskinedit1.Text;

[lek608]

是怎么错请先说明白!

[a8196041]

呵呵 自己搞定了 谢谢上面的两位