procedure
TForm1
.
Proc(ANum :
Integer
);
begin
case
ANum
Of
1
: Label1
color :=
$00FF0000
;
2
$0000FF00
3
$000000FF
end
Button1Click(Sender : TObject);
Label1
Caption :=
'Text'
Proc(
Сайт
Форум
FAQ
Соглашения
Прочее