Button [help]

[MesiasPeru]

hola.
tengo un problemita quiero un boton que ejecute una acción de acuerdo a cierta condición.... ejemplo:

procedure Taa.btn1Click(Sender: TObject);
begin
if Num = 0 then
begin
pbyte(Resultado)^:=20;
end;

if Num = 1 then
begin
pbyte(Resultado)^:=30;
end;
end;

el detalle al ejecutar y presionar el boton no hace nada... al parecer no reconocer esa condicion de if.