Como eu imprimo na tela uma variavel

Galera, eu tenho esse código

function TForm1.cpf(num: string): boolean;var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string;begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1>=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2);
E tenho no final  If not cpf(Edit2.text) then  Begin    ShowMessage('CPF Inválido !!');    Edit2.SetFocus;  End  Else    ShowMessage('CPF OK !!')end;end.só que na onde está o 'CPF OK !! eu queria fazer ele ficar com o valor da variavel calculado:=inttostr(d1)+inttostr(d2); 

em asp é mais simples é apenas eu colocar calculado

estou fazendo assim, agora

ShowMessage(calculado); mas não da certo !

alguém poderia me ajudar.!!!