Code:
function tform1.Eingabe (Ueberschrift,Frage:String):integer;
begin
form24.Caption:=Ueberschrift;
Form24.Memo1.lines[0]:=frage;
Form24.Spinedit1.Value:=0;
Form24.Show;
end;
Result soll erst nachdem auf einen Button gedrückt wurde ein Ergebnis zugeteilt werden.