1 files changed, 13 insertions, 1 deletions
diff --git a/buchstabenunit.pas b/buchstabenunit.pas
index 718a70d..42d7f33 100644
--- a/buchstabenunit.pas
+++ b/buchstabenunit.pas
@@ -15,6 +15,7 @@ type
   public
     constructor create(aOwner: tForm);
     destructor destroy; override;
+    function gleichzeitigMoeglich(num: longint): longint; override;
     function _loesen(lm: tFelderLoesMeta): longint; override;
   end;
 
@@ -84,7 +85,17 @@ begin
   result:=false;
 end;
 
+function tBuchstabenRaetsel.gleichzeitigMoeglich(num: longint): longint;
+begin
+  if num=0 then
+    result:=groeszen[0] // so viele Leerzeichen
+  else
+    result:=1;          // jeder Buchstabe nur ein Mal
+end;
+
 function tBuchstabenRaetsel._loesen(lm: tFelderLoesMeta): longint;
+var
+  w: longint;
 begin
   if not lm.fwd then begin
     result:=1;
@@ -99,8 +110,9 @@ begin
   //for
 
   if not lm.inhaltBehalten then begin
+    w:=inhalt[lm.posi];
     inhalt[lm.posi]:=-1;
-    lm.aktualisiereInhalt(lm.posi);
+    lm.aktualisiereInhalt(lm.posi,w);
   end;
 end;