Programmation en delphi

slt, je suis un programmeur en delphi je n'ai pas compris ta question, mais je peux vs donner le code de calculatrice,

déclaration des variable globale :
partie implementation
var v1,v2:real;
op:string;

//code pour les buttons 0,1,2,3.......9
button '1'
Begin
edit1.text:=edit1.text+'1';
end;

//même chose pour la suite des buttons

// code pour les buttons opérateurs /.*.-.+

Begin
v1:=StrToFloat(edit1.text)
op:='/';
edit1.text:='';
end;

//même chose pour la suite des buttons

//code pour le button =

Begin

V2:=StrToFlaot(edit1.text);

if op='+' then edit1.text:=flaottostr(v1+v2);

//la même condition pour les autres les opérateurs dans le même bloc bien sur (-.*./)
end;

// code pour cléar

Begin
edit1.clear;
v1:=0;
v2:=0;
edit1.seffocus;
end;