Heute wollen wir einen Taschenrechner bauen.

Zuerst platzieren wir 4 TEdits die wir mit 4 Labels beschriften (Int a, Int b, Result r, memory m) auf unserem Formular. Danach platzieren wir 10 Buttons, Diese werden wie folgt beschriftet:
a+b
a-b
a*b
a/b
a²
r>m
m>a
m>b
clear
end

Die Procedure des ersten Buttons sollte so aussehen:
procedure TForm1.Button1Click(Sender: TObject);
var
zahl1, zahl2, ergebnis: Real; //Unsere Variablen
begin
zahl1:=StrToFloat(Edit1.Text); //zahl 1 einlesen
zahl2:=StrToFloat(Edit2.Text); //zahl 2 einlesen
ergebnis:=zahl1+zahl2; //rechnung durchführen
edit3.Text:=FloatToStr(ergebnis); //das ergebnis ausgeben
end;

die nächsten 4 Proceduren der Buttons schreiben wir genauso mit dem Unterschied dass die 7. Zeile sich jeweils ändert:
ergebnis:=zahl1-zahl2 //rechnung durchführen
ergebnis:=zahl1*zahl2 //rechnung durchführen
ergebnis:=zahl1/zahl2 //rechnung durchführen
ergebnis:=zahl1*zahl1 //rechnung durchführen

In die Proceduren der nächsten 3 Buttons schreiben jeweils die passende Zeile hinein:
edit4.Text:=(edit3.Text); //das ergebnis in den zwischenspeicher schreiben
edit1.Text:=(edit4.Text); //den zwischenspeicher in Int a schreiben
edit2.Text:=(edit4.Text); //den zwischenspeicher in Int b schreiben

In die Procedure des Button 9 schreiben wir ganz einfach folgendes:
edit1.clear; //Inhalt von Int a löschen
edit2.clear; //Inhalt von Int b löschen
edit3.clear; //Inhalt von Result r löschen
edit4.clear; //Inhalt von Memory m löschen

Die Befehlszeile des letzten Buttons ist ganz einfach und lautet:
close; //programm beenden