Work 1.3.5

:: Download ::

procedure TForm1.Button1Click(Sender: TObject); //ป้อนคำสั่งลงในปุ่ม
var sumn1 : integer; //กำหนดตัวแปร sumn1 เป็น จำนวนจริง
begin
sumn1 := strtoint(edit1.Text) + strtoint(edit2.text); // ให้ตัวแปร sumn1 เท่ากับ จำนวนที่1 บวก จำนวนที่2
edit3.text := inttostr(sumn1); // ให้แสดงผลลัพธ์ในedit3.text
end;