---

10luktan 2liğe çevirme

procedure TForm1.Button1Click(Sender: TObject);
var
x,b:integer;
s:string;
begin
x:=strtoint(edit1.text);
while x>=2 do
begin
b:=x mod 2;//bölme işleminde kalanı verir
x:=x div 2;//bölme işleminde bölümü verir
s:=inttostr(b)+s;
end;
s:=inttostr(x)+s;
label1.caption:=s;
end;
end.

A ve B yi karşılaştır

procedure TForm1.karekkA1Click(Sender: TObject);
begin
edit3.text:=inttostr(strtoint(edit1.text)+ strtoint(edit2.text));
end;
procedure TForm1.AB1Click(Sender: TObject);
begin
edit3.text:=inttostr(strtoint(edit1.text)- strtoint(edit2.text));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';

---