Moin Stanlay,
ich kann nur nachvollziehen, dass sich der Speicherbedarf einmalig erhöht.
Das passiert auch, wenn Du mit ShowMessage eine Meldung ausgibst, oder ein zur Entwurfszeit erstelltes Formular anzeigen lässt.
Ich hätte allerdings noch ein paar Vorschläge für Deine Routine.
Wenn Du Die Button mit
with TButton.Create(Form) do
erzeugst, sparst Du Dir die Variablen. Da der Owner angegeben wird, werden die Button automatisch freigegeben, wenn der Owner zerstört wird.
Du kannst Dir auch die beiden OnClick Routinen sparen, wenn Du statt dessen bei den Button die Eigenschaf ModalResult entsprechend setzt.
Ausserdem solltest Du in der Prozedur QuestionForm nur das Formular erzeugen, aber nicht anzeigen lassen.
Die Funktion JesOrNo (warum eigentlich mit J?
) könnte dann so aussehen:
Delphi-Quellcode:
function JesOrNo: Boolean;
begin
QuestionForm;
JesOrNo := Form.ShowModal = mrYes;
FreeAndNil(Form);
end;