Man schaue sich mal dieses "Stifte und Mäuse" an, dass immer noch an Schulen gelehrt wird:
http://www.delphipraxis.net/156223-post36.html
In dem Sourcecode gibt es katastrophale Fehler (vorallem durch die zwangshafte Eindeutschung):
Delphi-Quellcode:
type
Bildschirm = class (TObject)
public
constructor init;
procedure loescheAlles;
function breite:GanzeZahl;
function hoehe:GanzeZahl;
destructor gibFrei; // Das geht garantiert in die Hose !!
protected
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
end;