Error en delphi

[llSnakell]

Ola llevo tiempo sin trabajar en delphi , y lo poco q sabia se me olvido
estoy trabajando de nuevo en esto y creando programas simples en delphi
y me aparece error y no se por que !

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
porce:real;
const
Num=250;
begin
porce:= strtoint(porce.text);
porce:= Num*0.15;
Label2.caption:='El Resultado es: '+inttostr(porce);
end;

end.

Me podrian decir cual es el error ! por favor