silence most non-error-output

3 files changed, 225 insertions, 225 deletions

diff --git a/epost.lps b/epost.lps
index bcf4111..f69594b 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,10 +7,10 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="455"/>
-        <CursorPos X="16" Y="478"/>
+        <TopLine Value="618"/>
+        <CursorPos Y="659"/>
         <UsageCount Value="202"/>
+        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="input.epost"/>
@@ -22,25 +22,25 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="9327"/>
-        <CursorPos Y="9343"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="5422"/>
+        <CursorPos X="14" Y="5439"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="8"/>
-        <TopLine Value="929"/>
-        <CursorPos X="42" Y="930"/>
+        <EditorIndex Value="9"/>
+        <TopLine Value="2257"/>
+        <CursorPos X="78" Y="2285"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="11"/>
+        <EditorIndex Value="12"/>
         <TopLine Value="2346"/>
         <CursorPos X="40" Y="2352"/>
         <UsageCount Value="200"/>
@@ -49,7 +49,7 @@
       <Unit5>
         <Filename Value="../units/fftunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="97"/>
         <CursorPos X="12" Y="116"/>
         <UsageCount Value="201"/>
@@ -58,7 +58,7 @@
       <Unit6>
         <Filename Value="../units/fftunit.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="168"/>
         <CursorPos X="56" Y="179"/>
         <UsageCount Value="202"/>
@@ -67,7 +67,7 @@
       <Unit7>
         <Filename Value="gauszFit.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="11"/>
         <CursorPos X="35" Y="10"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
@@ -75,10 +75,11 @@
       <Unit8>
         <Filename Value="werteunit.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="9"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="10"/>
         <TopLine Value="172"/>
         <CursorPos X="21" Y="183"/>
-        <UsageCount Value="171"/>
+        <UsageCount Value="173"/>
         <Loaded Value="True"/>
       </Unit8>
       <Unit9>
@@ -89,15 +90,15 @@
       </Unit9>
       <Unit10>
         <Filename Value="../units/mystringlistunit.pas"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="8"/>
         <TopLine Value="515"/>
         <CursorPos X="21" Y="543"/>
-        <UsageCount Value="84"/>
+        <UsageCount Value="85"/>
         <Loaded Value="True"/>
       </Unit10>
       <Unit11>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="7"/>
         <TopLine Value="393"/>
         <CursorPos X="28" Y="418"/>
         <UsageCount Value="100"/>
@@ -105,7 +106,7 @@
       </Unit11>
       <Unit12>
         <Filename Value="../units/matheunit.pas"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="1046"/>
         <CursorPos X="28" Y="1045"/>
         <UsageCount Value="101"/>
@@ -113,10 +114,10 @@
       </Unit12>
       <Unit13>
         <Filename Value="../units/systemunit.pas"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="2"/>
         <TopLine Value="190"/>
         <CursorPos X="22" Y="195"/>
-        <UsageCount Value="98"/>
+        <UsageCount Value="99"/>
         <Loaded Value="True"/>
       </Unit13>
       <Unit14>
@@ -184,132 +185,130 @@
       </Unit22>
       <Unit23>
         <Filename Value="../units/protokollunit.pas"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="6"/>
         <TopLine Value="87"/>
         <CursorPos X="3" Y="18"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="34"/>
         <Loaded Value="True"/>
       </Unit23>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="402" Column="32" TopLine="384"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="426" Column="190" TopLine="398"/>
       </Position1>
       <Position2>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="403" Column="32" TopLine="385"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="452" Column="187" TopLine="424"/>
       </Position2>
       <Position3>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="404" Column="12" TopLine="386"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="471" Column="187" TopLine="443"/>
       </Position3>
       <Position4>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="349" Column="42" TopLine="317"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="477" Column="175" TopLine="449"/>
       </Position4>
       <Position5>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="83" Column="49" TopLine="55"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="489" Column="92" TopLine="461"/>
       </Position5>
       <Position6>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="63" TopLine="63"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="491" Column="128" TopLine="463"/>
       </Position6>
       <Position7>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="88" Column="16" TopLine="71"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="494" Column="63" TopLine="466"/>
       </Position7>
       <Position8>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="402" TopLine="377"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="532" Column="73" TopLine="504"/>
       </Position8>
       <Position9>
-        <Filename Value="../units/lowlevelunit.pas"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="552" Column="73" TopLine="524"/>
       </Position9>
       <Position10>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="91" TopLine="59"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="572" Column="73" TopLine="544"/>
       </Position10>
       <Position11>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6133" Column="30" TopLine="6110"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="582" Column="62" TopLine="554"/>
       </Position11>
       <Position12>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="139" Column="22" TopLine="110"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="590" Column="65" TopLine="562"/>
       </Position12>
       <Position13>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="1004" Column="15" TopLine="969"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="637" Column="79" TopLine="609"/>
       </Position13>
       <Position14>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6139" Column="12" TopLine="6113"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="679" Column="90" TopLine="651"/>
       </Position14>
       <Position15>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="1041" Column="112" TopLine="1023"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="687" Column="59" TopLine="659"/>
       </Position15>
       <Position16>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="89" Column="31" TopLine="71"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1366" Column="14" TopLine="1338"/>
       </Position16>
       <Position17>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="413" Column="15" TopLine="388"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1399" Column="49" TopLine="1371"/>
       </Position17>
       <Position18>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="423" Column="37" TopLine="388"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1464" Column="32" TopLine="1436"/>
       </Position18>
       <Position19>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="422" Column="7" TopLine="405"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1485" Column="101" TopLine="1457"/>
       </Position19>
       <Position20>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="140" Column="16" TopLine="127"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1517" Column="45" TopLine="1489"/>
       </Position20>
       <Position21>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="1023" Column="33" TopLine="999"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1541" Column="104" TopLine="1513"/>
       </Position21>
       <Position22>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="1033" Column="25" TopLine="1016"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1543" Column="14" TopLine="1515"/>
       </Position22>
       <Position23>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="89" Column="31" TopLine="71"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1550" Column="91" TopLine="1522"/>
       </Position23>
       <Position24>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6136" Column="12" TopLine="6130"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1552" Column="18" TopLine="1524"/>
       </Position24>
       <Position25>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="603" Column="57" TopLine="590"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1562" Column="83" TopLine="1534"/>
       </Position25>
       <Position26>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6136" Column="56" TopLine="6125"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1621" Column="13" TopLine="1593"/>
       </Position26>
       <Position27>
-        <Filename Value="epostunit.pas"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1888" Column="6" TopLine="1860"/>
       </Position27>
       <Position28>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6138" TopLine="6105"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2225" Column="99" TopLine="2197"/>
       </Position28>
       <Position29>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="9343" TopLine="9327"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2245" Column="131" TopLine="2217"/>
       </Position29>
-      <Position30>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="64" Column="28" TopLine="47"/>
-      </Position30>
     </JumpHistory>
   </ProjectSession>
   <Debugging>
diff --git a/epostunit.pas b/epostunit.pas
index dff17fb..31dc0ca 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -721,12 +721,12 @@ end;
 procedure tWerte.warteAufBeendigungDesLeseThreads;
 begin
   if assigned(leseThread) then begin
-    gibAus('Warte auf Beendigung des Lesethreads von '''+bezeichner+''' ...',3);
+    gibAus('Warte auf Beendigung des Lesethreads von '''+bezeichner+''' ...',1);
     while not leseThread.fertig do
       sleep(10);
     leseThread.free;
     leseThread:=nil;
-    gibAus('... ist fertig',3);
+    gibAus('... ist fertig',1);
   end;
 end;
 
@@ -2510,8 +2510,8 @@ begin
     exit;
   end;
   if not sT then begin
-    holeRAM(3);
-    gibAus('Datei einlesen ...',3);
+    holeRAM(1);
+    gibAus('Datei einlesen ...',1);
   end;
   Zeit:=now;
   s:='';
@@ -2560,7 +2560,7 @@ begin
   end;
   transformationen.xSteps:=_xSteps;
   transformationen.tSiz:=_tSiz;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -2721,8 +2721,8 @@ begin
     result:=true;
     exit;
   end;
-  holeRAM(3);
-  gibAus('Berechne ...',3);
+  holeRAM(1);
+  gibAus('Berechne ...',1);
   Zeit:=now;
   setLength(liKoThreads,threads);
   for i:=0 to length(liKoThreads)-1 do
@@ -2735,7 +2735,7 @@ begin
   until fertig;
   for i:=0 to length(liKoThreads)-1 do
     liKoThreads[i].free;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -2867,8 +2867,8 @@ begin
     result:=true;
     exit;
   end;
-  holeRAM(3);
-  gibAus('Berechne ...',3);
+  holeRAM(1);
+  gibAus('Berechne ...',1);
   Zeit:=now;
 
   if xMax<xMin then begin
@@ -2910,7 +2910,7 @@ begin
         );
     end;
 
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -2998,7 +2998,6 @@ begin
       (wertes^[dividend].transformationen.tStop<>wertes^[divisor].transformationen.tStop) or
       (wertes^[dividend]._xSteps<>wertes^[divisor]._xSteps) or
       (wertes^[dividend]._tSiz<>wertes^[divisor]._tSiz) then begin
-//    gibAus('Dividend und Divisor haben verschiedene Abmessungen oder verschiedene Genauigkeiten, sowas verstehe ich nicht!',3);
     gibAus('Dividend und Divisor haben verschiedene Abmessungen, sowas verstehe ich nicht!',3);
     exit;
   end;
@@ -3010,8 +3009,8 @@ begin
     result:=true;
     exit;
   end;
-  holeRAM(3);
-  gibAus('Berechne ...',3);
+  holeRAM(1);
+  gibAus('Berechne ...',1);
   Zeit:=now;
   setLength(quotientThreads,threads);
   for i:=0 to length(quotientThreads)-1 do
@@ -3024,7 +3023,7 @@ begin
   until fertig;
   for i:=0 to length(quotientThreads)-1 do
     quotientThreads[i].free;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -3134,8 +3133,8 @@ begin
     result:=true;
     exit;
   end;
-  holeRAM(3);
-  gibAus('Berechne ...',3);
+  holeRAM(1);
+  gibAus('Berechne ...',1);
   Zeit:=now;
   setLength(produktThreads,threads);
   for i:=0 to length(produktThreads)-1 do
@@ -3177,7 +3176,7 @@ begin
   until fertig;
   for i:=0 to length(produktThreads)-1 do
     produktThreads[i].free;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -3247,20 +3246,20 @@ begin
     exit;
   end;
   if wavelet.mitFFT then begin
-    gibAus('Fordere '+intToStr(floor(_tSiz*_xSteps*sizeOf(extended)/1024/1024))+' MB RAM an ('+intToStr(_xSteps)+' x-Schritte mal '+intToStr(_tSiz)+' t-Schritte). ...',3);
-    gibAus(paramsDump,3);
-    gibAus(quelle.paramsDump,3);
+    gibAus('Fordere '+intToStr(floor(_tSiz*_xSteps*sizeOf(extended)/1024/1024))+' MB RAM an ('+intToStr(_xSteps)+' x-Schritte mal '+intToStr(_tSiz)+' t-Schritte). ...',1);
+    gibAus(paramsDump,1);
+    gibAus(quelle.paramsDump,1);
     case quelle.genauigkeit of
       gSingle:   eWerte.kopiereVon(sT,pTLLWerteSingle(@quelle.sWerte));
       gDouble:   dWerte.kopiereVon(sT,pTLLWerteDouble(@quelle.dWerte));
       gExtended: eWerte.kopiereVon(sT,pTLLWerteExtended(@quelle.eWerte));
     end{of case};
-    gibAus('... fertig '+timetostr(now-Zeit)+', berechne ...',3);
+    gibAus('... fertig '+timetostr(now-Zeit)+', berechne ...',1);
   end
   else begin
     genauigkeit:=gExtended;
-    holeRAM(3);
-    gibAus('Berechne ...',3);
+    holeRAM(1);
+    gibAus('Berechne ...',1);
   end;
   Zeit:=now;
   wavelet.werte.params.tSiz:=_tSiz;
@@ -3283,9 +3282,9 @@ begin
     pvFehler:=pvFehler+korrelThreads[i].pvFehler;
     korrelThreads[i].free;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler/length(korrelThreads))+')',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler/length(korrelThreads))+')',1);
   wavelet.free;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -3368,7 +3367,7 @@ begin
     tMin:=i;
   end;
   setLength(DTs,min(threads,xMax+1-xMin));
-  gibAus('Ermittle maximale und minimale Dichten ...',3);
+  gibAus('Ermittle maximale und minimale Dichten ...',1);
   j:=xMin;
   for i:=0 to length(DTs)-1 do begin
     DTs[i]:=tDichteThread.create(j,byte(i=length(DTs)-1)*xMax + byte(i<length(DTs)-1)*(j+ ((xMax+1-xMin) div length(DTs))),tMin,tMax,self);
@@ -3413,11 +3412,11 @@ begin
         fehler('Das Minimum ist nicht eindeutig!');
     end;
   end;
-  gibAus('... sie sind '+myFloatToStr(_maxW)+' ('+tInt64PointToStr(_maxP)+') und '+myFloatToStr(_minW)+' ('+tInt64PointToStr(_minP)+'). '+timetostr(now-Zeit),3);
+  gibAus('... sie sind '+myFloatToStr(_maxW)+' ('+tInt64PointToStr(_maxP)+') und '+myFloatToStr(_minW)+' ('+tInt64PointToStr(_minP)+'). '+timetostr(now-Zeit),1);
   if symmetrisch then begin
     _minW:=min(_minW,-_maxW);
     _maxW:=max(_maxW,-_minW);
-    gibAus('Jetzt sind sie '+myFloatToStr(_maxW)+' und '+myFloatToStr(_minW)+'. '+timetostr(now-Zeit),3);
+    gibAus('Jetzt sind sie '+myFloatToStr(_maxW)+' und '+myFloatToStr(_minW)+'. '+timetostr(now-Zeit),1);
   end;
 end;
 
@@ -3448,7 +3447,7 @@ begin
   for i:=0 to length(vgWs)-1 do
     vgWs[i].warteAufBeendigungDesLeseThreads;
   Zeit:=now;
-  gibAus('Gleiche maximale und minimale Dichten an ...',3);
+  gibAus('Gleiche maximale und minimale Dichten an ...',1);
 
   for i:=0 to length(vgWs)-1 do begin
     _minW:=min(_minW,vgWs[i]._minW);
@@ -3465,11 +3464,11 @@ begin
     vgWs[i]._maxW:=_maxW;
   end;
 
-  gibAus('... sie sind '+myFloatToStr(_minW)+' und '+myFloatToStr(_maxW)+'. '+timetostr(now-Zeit),3);
+  gibAus('... sie sind '+myFloatToStr(_minW)+' und '+myFloatToStr(_maxW)+'. '+timetostr(now-Zeit),1);
   if symmetrisch then begin
     _minW:=min(_minW,-_maxW);
     _maxW:=max(_maxW,-_minW);
-    gibAus('Jetzt sind sie '+myFloatToStr(_minW)+' und '+myFloatToStr(_maxW)+'. '+timetostr(now-Zeit),3);
+    gibAus('Jetzt sind sie '+myFloatToStr(_minW)+' und '+myFloatToStr(_maxW)+'. '+timetostr(now-Zeit),1);
   end;
 end;
 
@@ -3581,7 +3580,7 @@ begin
   _tSiz:=transformationen.tSiz;
   genauigkeit:=gExtended;
   if not sT then
-    holeRAM(3);
+    holeRAM(1);
 end;
 
 function tWerte.fitteGausze(sT: boolean; f: tMyStringList; threads: longint): boolean;
@@ -3599,7 +3598,7 @@ begin
   result:=false;
   Zeit:=now;
   if not sT then
-    gibAus('Gauße fitten ...',3);
+    gibAus('Gauße fitten ...',1);
   ampl:=nil;
   br:=nil;
   posi:=nil;
@@ -3771,7 +3770,7 @@ begin
   for i:=0 to threads-1 do
     gauszFitThreads[i].free;
 
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -3927,9 +3926,9 @@ begin
     while tMin<0 do
       tMin:=tMin+qlen;
 
-    holeRAM(3);
+    holeRAM(1);
     setLength(tmpW,2*_xSteps-1);
-    gibAus('kopiere Inhalt ...',3);
+    gibAus('kopiere Inhalt ...',1);
     case quelle.genauigkeit of
       gSingle:
         for i:=0 to 2*_xSteps-2 do
@@ -3945,7 +3944,7 @@ begin
       move(tmpW[i],eWerte.werte[i*_xSteps],_xSteps*sizeOf(extended));
     for i:=0 to length(eWerte.werte)-1 do
       total:=total+sqr(eWerte.werte[i]);
-    gibAus('... fertig ('+floatToStr(total)+'), berechne Fouriertransformation ...',3);
+    gibAus('... fertig ('+floatToStr(total)+'), berechne Fouriertransformation ...',1);
     if not fft(threads,senkrecht,false,doRes,doBetrQdr,wavelet,nil,pvFehler,warn) then begin
       gibAus('Es traten Fehler auf!',3);
       wavelet.free;
@@ -3955,7 +3954,7 @@ begin
     total:=0;
     for i:=0 to length(eWerte.werte)-1 do
       total:=total+sqr(eWerte.werte[i]);
-    gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+') -> '+floatToStr(total),3);
+    gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+') -> '+floatToStr(total),1);
   end;
   transformationen:=tFFTTransformation.create(transformationen,not senkrecht,senkrecht);
   if senkrecht then              // die zweite Hälfte der Werte ist redundant
@@ -3964,8 +3963,8 @@ begin
     _xSteps:=_xSteps div 2 + 1;
   transformationen:=tKoordinatenAusschnitt.create(transformationen,0,_xSteps-1,0,_tSiz-1);
   if not sT then
-    eWerte.holeRAM(0);
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+    eWerte.holeRAM(1);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   wavelet.free;
   fenster.free;
   result:=true;
@@ -4009,7 +4008,7 @@ end;
 begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
-  gibAus('Verzerrung berechnen ... ',3);
+  gibAus('Verzerrung berechnen ... ',1);
   Zeit:=now;
   bearbeitungenLoeschen:=true;
   verzerrung:=tKeineTransformation.create;
@@ -4050,12 +4049,12 @@ begin
       end;
       inc(verAnz);
       if not sT then begin
-        gibAus(verzerrung.dumpParams(verAnz),3);
+        gibAus(verzerrung.dumpParams(verAnz),1);
         for i:=0 to 1 do
           for j:=0 to 1 do
             gibAus(
               intToStr(i*(quelle._xSteps-1))+';'+intToStr(j*(quelle._tSiz-1))+' -> '+
-              tExtPointToStr(verzerrung.transformiereKoordinaten(i*(quelle._xSteps-1),j*(quelle._tSiz-1),verAnz-1)),3);
+              tExtPointToStr(verzerrung.transformiereKoordinaten(i*(quelle._xSteps-1),j*(quelle._tSiz-1),verAnz-1)),1);
       end;
       continue;
     end;
@@ -4086,7 +4085,7 @@ begin
   Nachbearbeitung.ersetzeAnfangDurch(verzerrung);
 
   if not sT then begin
-    gibAus('... Zielausdehnung berechnen ... ',3);
+    gibAus('... Zielausdehnung berechnen ... ',1);
     grenzen:=(verzerrung as tKonkreteKoordinatenTransformation).zielausdehnung;
     _xSteps:=grenzen['x','y']-grenzen['x','x']+2;
     _tSiz:=grenzen['y','y']-grenzen['y','x']+2;
@@ -4095,13 +4094,13 @@ begin
       aufraeumen;
       exit;
     end;
-    holeRAM(3);
-    gibAus('Positionen und Gewichte initialisieren ...',3);
+    holeRAM(1);
+    gibAus('Positionen und Gewichte initialisieren ...',1);
     setLength(zPs,quelle._xSteps*quelle._tSiz);
     setLength(zGs,quelle._xSteps*quelle._tSiz);
     setLength(zAs,_xSteps*_tSiz);
     initVerzerrung(quelle,0,quelle._xSteps-1,0,quelle._tSiz-1,grenzen['x','x'],grenzen['y','x'],threads,true,epsilon,verzerrung,verAnz,zPs,zGs,zAs,warn);
-    gibAus('... fertig, Threads starten',3);
+    gibAus('... fertig, Threads starten',1);
     setLength(verzerrThreads,threads);
     for i:=0 to length(verzerrThreads)-1 do
       verzerrThreads[i]:=tVerzerrThread.create(quelle,self,round(i/length(verzerrThreads)*_xSteps),round((i+1)/length(verzerrThreads)*_xSteps-1),0,_tSiz-1,zPs,zGs,zAs,Vorbearbeitung,Nachbearbeitung,vorAnz,nachAnz);
@@ -4114,7 +4113,7 @@ begin
   end;
   transformationen:=Nachbearbeitung;
   aufraeumen;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -4139,7 +4138,7 @@ end;
 begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
-  gibAus('lambda-zu-omega-Verzerrung berechnen ... ',3);
+  gibAus('lambda-zu-omega-Verzerrung berechnen ... ',1);
   Zeit:=now;
   genauigkeit:=gExtended;
                                                       //   c        nm         eV           h
@@ -4177,8 +4176,8 @@ begin
   _xSteps:=quelle._xSteps;
   _tSiz:=quelle._tSiz;
   if not sT then begin
-    holeRAM(3);
-    gibAus('Threads starten',3);
+    holeRAM(1);
+    gibAus('Threads starten',1);
     setLength(verzerrLOThreads,threads);
     for i:=0 to length(verzerrLOThreads)-1 do
       verzerrLOThreads[i]:=
@@ -4199,7 +4198,7 @@ begin
     until fertig;
   end;
   aufraeumen;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -4219,7 +4218,7 @@ begin
   result:=false;
   Zeit:=now;
   if not sT then
-    gibAus('Artefakte entfernen ...',3);
+    gibAus('Artefakte entfernen ...',1);
   for b:=false to true do begin
     fensters[b]:=tSin2Fenster.create;
     (fensters[b] as tSin2Fenster).breite:=_tSiz;
@@ -4357,7 +4356,7 @@ begin
   end;
 
   if (hintergrundAbziehen.art<>haaKeine) or fensters[false].aktiv or fensters[true].aktiv then begin
-    gibAus('Fenster-Threads starten',3);
+    gibAus('Fenster-Threads starten',1);
     setLength(fensterThreads,threads);
     for i:=0 to length(fensterThreads)-1 do
       fensterThreads[i]:=
@@ -4388,7 +4387,7 @@ begin
         eWerte.entferneHeiszePixel(heiszPixelSchwellen[0],heiszPixelSchwellen[1],heiszPixelSchwellen[2]);
     end{of case};
 
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -4406,7 +4405,7 @@ begin
   result:=false;
   Zeit:=now;
   if not sT then
-    gibAus('Einhüllende extrahieren ...',3);
+    gibAus('Einhüllende extrahieren ...',1);
   for b:=false to true do
     fensters[b]:=tSin2Fenster.create;
   hintergrundAbziehen.art:=haaKeine;
@@ -4464,27 +4463,27 @@ begin
     exit;
   end;
 
-  gibAus('berechne t-FFT ...',3);
+  gibAus('berechne t-FFT ...',1);
   if not fft(threads,true,false,doRes,doResSmi,fensters[true],hintergrund,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('berechne x-FFT ...',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('berechne x-FFT ...',1);
   if not fft(threads,false,false,doRes,doResSmi,fensters[false],nil,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
   for b:=false to true do
     fensters[b].free;
 
-  gibAus('spektrale Beträge ermitteln',3);
+  gibAus('spektrale Beträge ermitteln',1);
   betraege:=tWerte.create(self,0,_xSteps-1);
   betraege.fft2dNachbearbeitung(threads,doBetrQdr);
   betraege.wertAusUmgebungMitteln(_xSteps div 2, _tSiz div 2); // irgendwie sammelt sich hier Rauschen (?) an
 
-  gibAus('hohe Frequenzen filtern',3);
+  gibAus('hohe Frequenzen filtern',1);
   case genauigkeit of
     gSingle:
       sWerte.kantenFilter(betraege.sWerte,xFak,yFak,kfTiefpass);
@@ -4495,19 +4494,19 @@ begin
   end{of case};
   betraege.free;
 
-  gibAus('berechne inverse x-FFT ...',3);
+  gibAus('berechne inverse x-FFT ...',1);
   if not fft(threads,false,true,doResSmi,doRes,nil,nil,pvFehler,wsLasch) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('berechne inverse t-FFT ...',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('berechne inverse t-FFT ...',1);
   if not fft(threads,true,true,doResSmi,doBetr,nil,hintergrund,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -4526,7 +4525,7 @@ begin
   result:=false;
   Zeit:=now;
   if not sT then
-    gibAus('Phase extrahieren ...',3);
+    gibAus('Phase extrahieren ...',1);
   for b:=false to true do
     fensters[b]:=tSin2Fenster.create;
   if not istKomplex then begin
@@ -4591,26 +4590,26 @@ begin
     exit;
   end;
 
-  gibAus('berechne t-FFT ...',3);
+  gibAus('berechne t-FFT ...',1);
   if not fft(threads,true,false,doAlleResIms,doAlleResIms,fensters[true],nil,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('berechne x-FFT ...',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('berechne x-FFT ...',1);
   if not fft(threads,false,false,doAlleResIms,doAlleResIms,fensters[false],nil,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
   for b:=false to true do
     fensters[b].free;
 
-  gibAus('spektrale Beträge ermitteln',3);
+  gibAus('spektrale Beträge ermitteln',1);
   betraege:=tWerte.create(self,0,_xSteps-1);
   betraege.fft2dNachbearbeitung(threads,doBetrQdr);
 
-  gibAus('tiefe Frequenzen filtern',3);
+  gibAus('tiefe Frequenzen filtern',1);
   case genauigkeit of
     gSingle:
       sWerte.kantenFilter(betraege.sWerte,xFak,yFak,kfHochpass,true,maxPos);
@@ -4621,23 +4620,23 @@ begin
   end{of case};
   betraege.free;
 
-  gibAus('zentrieren ('+tInt64PointToStr(maxPos)+')',3);
+  gibAus('zentrieren ('+tInt64PointToStr(maxPos)+')',1);
   verschiebe(threads,maxPos);
 
-  gibAus('berechne inverse x-FFT ...',3);
+  gibAus('berechne inverse x-FFT ...',1);
   if not fft(threads,false,true,doAlleResIms,doAlleResIms,nil,nil,pvFehler,wsLasch) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('berechne inverse t-FFT ...',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('berechne inverse t-FFT ...',1);
   if not fft(threads,true,true,doAlleResIms,doAlleResIms,nil,nil,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
 
-  gibAus('Phasenwinkel ermitteln ...',3);
+  gibAus('Phasenwinkel ermitteln ...',1);
   ermittlePhasenWinkel(threads);
 
   if entspringen.modus<>emKein then begin
@@ -4651,11 +4650,11 @@ begin
           entspringen.parameter[i]:=
             kont2disk('y',entspringen.parameter[i]);
     end{of case};
-    gibAus('entspringen ...',3);
+    gibAus('entspringen ...',1);
     entspringe(threads,entspringen);
   end;
 
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -4672,7 +4671,7 @@ begin
   result:=false;
   Zeit:=now;
   if not sT then
-    gibAus('Kanten extrahieren ...',3);
+    gibAus('Kanten extrahieren ...',1);
   senkrecht:=false;
   exponent:=1;
   bekannteBefehle:=tMyStringList.create;
@@ -4712,7 +4711,7 @@ begin
     exit;
   end;
 
-  gibAus('Kantenextraktionsthreads starten',3);
+  gibAus('Kantenextraktionsthreads starten',1);
   setLength(kantenExtraktionsThreads,threads);
   if senkrecht then begin
     for i:=0 to length(kantenExtraktionsThreads)-1 do
@@ -4745,7 +4744,7 @@ begin
     if not fertig then sleep(10);
   until fertig;
 
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -4925,7 +4924,7 @@ begin
     exit;
   end;
 
-  holeRAM(3);
+  holeRAM(1);
   case genauigkeit of
     gSingle:
       sWerte.nullenEinfuegen(wo['x'],wo['y']);
@@ -4988,7 +4987,7 @@ begin
     exit;
   end;
 
-  holeRAM(3);
+  holeRAM(1);
 
   setLength(kmThreads,threads);
   for i:=0 to length(kmThreads)-1 do
@@ -5105,8 +5104,8 @@ begin
     _tSiz:=tMax-tMin+1;
     _xSteps:=xMax-xMin+1;
 
-    holeRAM(3);
-    gibAus('Berechne Integrale ...',3);
+    holeRAM(1);
+    gibAus('Berechne Integrale ...',1);
     setLength(intThreads,threads);
     for i:=0 to length(intThreads)-1 do
       intThreads[i]:=
@@ -5130,7 +5129,7 @@ begin
     for i:=0 to length(intThreads)-1 do
       intThreads[i].free;
 
-    gibAus('... fertig '+timetostr(now-Zeit),3);
+    gibAus('... fertig '+timetostr(now-Zeit),1);
   end;
   result:=true;
 end;
@@ -5204,18 +5203,18 @@ begin
     fenster.breite:=_xSteps - fenster.rand;
   end;
   if not sT then begin
-    gibAus('berechne FFT ...',3);
+    gibAus('berechne FFT ...',1);
     if not fft(threads,senkrecht,false,doRes,nB,fenster,nil,pvFehler,warn) then begin
       gibAus('Es traten Fehler auf!',3);
       fenster.free;
       exit;
     end;
-    gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
+    gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
   end;
   transformationen:=tFFTTransformation.create(transformationen,not senkrecht,senkrecht);
   if not sT then begin
-    holeRAM(0);
-    gibAus('... fertig! '+timetostr(now-Zeit),3);
+    holeRAM(1);
+    gibAus('... fertig! '+timetostr(now-Zeit),1);
   end;
   fenster.free;
   result:=true;
@@ -5363,28 +5362,28 @@ begin
 
   transformationen:=tFFTTransformation.create(transformationen,true,true);
   if spiegeln then begin
-    gibAus('Werte spiegeln ...',3);
+    gibAus('Werte spiegeln ...',1);
     spiegle(threads);
-    gibAus('... fertig! '+timetostr(now-Zeit),3);
+    gibAus('... fertig! '+timetostr(now-Zeit),1);
   end;
-  gibAus('berechne t-FFT ...',3);
+  gibAus('berechne t-FFT ...',1);
   if not fft(threads,true,invers,dos[0],dos[1],fensters[true],nil,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('... fertig! '+timetostr(now-Zeit),3);
-  gibAus('berechne x-FFT ...',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('... fertig! '+timetostr(now-Zeit),1);
+  gibAus('berechne x-FFT ...',1);
   if not fft(threads,false,invers,dos[2],dos[3],fensters[false],nil,pvFehler,warn) then begin
     gibAus('Es traten Fehler auf!',3);
     exit;
   end;
-  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',3);
-  gibAus('... fertig! '+timetostr(now-Zeit),3);
-  gibAus('Wertenachbearbeiten ...',3);
+  gibAus(' (Parseval-Fehler = '+floatToStr(pvFehler)+')',1);
+  gibAus('... fertig! '+timetostr(now-Zeit),1);
+  gibAus('Wertenachbearbeiten ...',1);
   if dos[3]<>dos[4] then
     fft2dNachbearbeitung(threads,dos[4]);
-  gibAus('... fertig! '+timetostr(now-Zeit),3);
+  gibAus('... fertig! '+timetostr(now-Zeit),1);
   for b:=false to true do
     fensters[b].free;
   result:=true;
@@ -5434,8 +5433,8 @@ begin
   transformationen:=tRTTransformation.create(quelle.transformationen,winkelSchritte,verschiebungsSchritte);
 
   if not sT then begin
-    holeRAM(0);
-    gibAus('berechne Radon-Transformation ...',3);
+    holeRAM(1);
+    gibAus('berechne Radon-Transformation ...',1);
     setLength(radonTransformationsThreads,threads);
     for i:=0 to length(radonTransformationsThreads)-1 do
       radonTransformationsThreads[i]:=tRadonTransformationsThread.create(
@@ -5451,7 +5450,7 @@ begin
       if not fertig then
         sleep(10);
     until fertig;
-    gibAus('... fertig! '+timetostr(now-Zeit),3);
+    gibAus('... fertig! '+timetostr(now-Zeit),1);
   end;
   result:=true;
 end;
@@ -5509,7 +5508,8 @@ begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
   Zeit:=now;
-  if not sT then gibAus('erzeuge lineares Bild aus '+bezeichner+' ...',3);
+  if not sT then
+    gibAus('erzeuge lineares Bild aus '+bezeichner+' ...',1);
   datei:='';
   xZoom:=1;
   yZoom:=1;
@@ -5752,8 +5752,8 @@ begin
   xMax:=min(xMax,_xSteps-1);
   tMin:=max(tMin,0);
   tMax:=min(tMax,_tSiz div (1+byte(istKomplex))-1);
-  gibAus('('+intToStr(xMin)+'-'+intToStr(xMax)+'x'+intToStr(tMin)+'-'+intToStr(tMax)+')',3);
-  gibAus(' ('+floatToStr(transformationen.xStart)+'-'+floatToStr(transformationen.xStop)+' x '+floatToStr(transformationen.tStart)+'-'+floatToStr(transformationen.tStop)+')',3);
+  gibAus('('+intToStr(xMin)+'-'+intToStr(xMax)+'x'+intToStr(tMin)+'-'+intToStr(tMax)+')',1);
+  gibAus(' ('+floatToStr(transformationen.xStart)+'-'+floatToStr(transformationen.xStop)+' x '+floatToStr(transformationen.tStart)+'-'+floatToStr(transformationen.tStop)+')',1);
   breite:=round((xMax-xMin+1)*xZoom);
   hoehe:=round((tMax-tMin+1)*yZoom);
 
@@ -5764,7 +5764,7 @@ begin
     aufraeumen;
     exit;
   end;
-  gibAus(intToStr(breite)+' x '+intToStr(hoehe)+' Pixel',3);
+  gibAus(intToStr(breite)+' x '+intToStr(hoehe)+' Pixel',1);
 
   fontRenderer:=tFontRenderer.create(schriftgroesze);
 
@@ -5814,7 +5814,7 @@ begin
       wert:=wert+schritt;
     end;
   end;
-  gibAus(intToStr(length(beschriftungen))+' Zahlen an den Achsen',3);
+  gibAus(intToStr(length(beschriftungen))+' Zahlen an den Achsen',1);
   lOf:=byte(rahmen);
   rOf:=byte(rahmen);
   oOf:=byte(rahmen);
@@ -5827,7 +5827,7 @@ begin
       uOf:=max(uOf,1+unten-bHoehe);
     end;
   if lOf+oOf+rOf+uOf>0 then
-  gibAus('Extra-Ränder: '+intToStr(lOf)+' Pixel links, '+intToStr(oOf)+' Pixel oben, '+intToStr(rOf)+' Pixel rechts und '+intToStr(uOf)+' Pixel unten.',3);
+  gibAus('Extra-Ränder: '+intToStr(lOf)+' Pixel links, '+intToStr(oOf)+' Pixel oben, '+intToStr(rOf)+' Pixel rechts und '+intToStr(uOf)+' Pixel unten.',1);
 
   setLength(bilderThreads,threads);
   for i:=0 to length(bilderThreads)-1 do
@@ -5884,7 +5884,7 @@ begin
   aufraeumen;
 
   result:=true;
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
 end;
 
 function tWerte.erzeugeAscii(sT: boolean; f: tMyStringList): boolean;
@@ -5900,7 +5900,7 @@ begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
   Zeit:=now;
-  gibAus('erzeuge Ascii-Datei ...',3);
+  gibAus('erzeuge Ascii-Datei ...',1);
   datei:='';
   xMin:=0;
   xMax:=_xSteps-1;
@@ -6035,7 +6035,7 @@ begin
       end{of Case};
   end{of Case};
   close(outF);
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -6058,8 +6058,8 @@ begin
   warteAufBeendigungDesLeseThreads;
   Zeit:=now;
   if not sT then begin
-    gibAus('erzeuge Lineout ...',3);
-    gibAus('insgesamt: '+floatToStr(transformationen.xStart)+'..'+floatToStr(transformationen.xStop)+' x '+floatToStr(transformationen.tStart)+'..'+floatToStr(transformationen.tStop),3);
+    gibAus('erzeuge Lineout ...',1);
+    gibAus('insgesamt: '+floatToStr(transformationen.xStart)+'..'+floatToStr(transformationen.xStop)+' x '+floatToStr(transformationen.tStart)+'..'+floatToStr(transformationen.tStop),1);
   end;
 
   ab['x']:=extPoint(0,0);
@@ -6239,7 +6239,7 @@ begin
   end;
   if not sT then begin
     closeFile(fOut);
-    gibAus('... fertig '+timetostr(now-Zeit),3);
+    gibAus('... fertig '+timetostr(now-Zeit),1);
   end;
   result:=true;
 end;
@@ -6253,8 +6253,8 @@ begin
   warteAufBeendigungDesLeseThreads;
   Zeit:=now;
   if not sT then begin
-    gibAus('erzeuge Binning ...',3);
-    gibAus('insgesamt: '+floatToStr(transformationen.xStart)+'..'+floatToStr(transformationen.xStop)+' x '+floatToStr(transformationen.tStart)+'..'+floatToStr(transformationen.tStop),3);
+    gibAus('erzeuge Binning ...',1);
+    gibAus('insgesamt: '+floatToStr(transformationen.xStart)+'..'+floatToStr(transformationen.xStop)+' x '+floatToStr(transformationen.tStart)+'..'+floatToStr(transformationen.tStop),1);
   end;
   senkrecht:=transformationen.xStart=transformationen.xStop;
   if (not senkrecht) and (transformationen.tStart<>transformationen.tStop) then begin
@@ -6281,7 +6281,7 @@ begin
       gExtended:
         eWerte.erzeugeBinning(senkrecht,linien,x0,dx,params);
     end{of case};
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -6343,7 +6343,7 @@ begin
   transformationen.tSiz:=_tSiz div 2;
   if sT then
     exit;
-  holeRAM(3);
+  holeRAM(1);
   for j:=0 to ts2-1 do
     for i:=0 to _xSteps-1 do begin
       eWerte.werte[i+j*_xSteps]:=
@@ -6435,7 +6435,7 @@ begin
     phasenWinkelThreads[i].free;
   gibAus('Alle Phasenwinkelthreads fertig!',1);
   istKomplex:=false;
-  holeRAM(3);
+  holeRAM(1);
 end;
 
 procedure tWerte.entspringe(threads: longint; entspringen: tEntspringModus);
@@ -6503,13 +6503,13 @@ begin
     gibAus('Alle FFT2dNBThreads fertig!',1);
     if not (nB in [doAlleResIms,doAlleResSmi]) then begin
       istKomplex:=false;
-      holeRAM(3);
+      holeRAM(1);
     end;
   end
   else begin
     if nB in [doAlleResIms,doAlleResSmi] then begin
       istKomplex:=true;
-      holeRAM(3);
+      holeRAM(1);
       case genauigkeit of
         gSingle:
           sWerte.fft2dNachbearbeitungVerdoppeln(nB);
@@ -6565,7 +6565,7 @@ begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
   Zeit:=now;
-  gibAus('finde Maximum ...',3);
+  gibAus('finde Maximum ...',1);
   datei:='';
   xMin:=0;
   xMax:=_xSteps-1;
@@ -6678,7 +6678,7 @@ begin
   end{of case};
   outF.add(s);
   outF.saveToFile(datei);
-  gibAus('... fertig '+timetostr(now-Zeit),3);
+  gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;
 
@@ -7222,7 +7222,7 @@ begin
   fen:=fenster;
   hg:=hintergrund;
   erfolg:=false;
-  gibAus('FFTthread kreiert ('+intToStr(pW._xSteps)+' x '+intToStr(pW._tSiz)+': '+intToStr(sMi)+' .. '+intToStr(sMa)+'): '+algo.className,3);
+  gibAus('FFTthread kreiert ('+intToStr(pW._xSteps)+' x '+intToStr(pW._tSiz)+': '+intToStr(sMi)+' .. '+intToStr(sMa)+'): '+algo.className,1);
   suspended:=false;
 end;
 
@@ -8192,7 +8192,7 @@ begin
     (tokenListe.grepFirst('^$',true)='') then begin
     p.free;
     p:=nil;
-    gibAus('Des Befehls zu expandierende Argumente hatten keine Treffer, er wird ignoriert.',3);
+    gibAus('Des Befehls zu expandierende Argumente hatten keine Treffer, er wird ignoriert.',1);
     exit;
   end;
 
@@ -8204,12 +8204,12 @@ begin
     cmd:=leftStr(cmd,pos(#10,cmd)-1)+''' '''+copy(cmd,pos(#10,cmd)+1,length(cmd));
   while pos(#13,cmd)>0 do
     cmd:=leftStr(cmd,pos(#13,cmd)-1)+''' '''+copy(cmd,pos(#13,cmd)+1,length(cmd));
-  gibAus('Externer Befehl: '''+p.executable+''' '+cmd+' erzeugt.',3);
+  gibAus('Externer Befehl: '''+p.executable+''' '+cmd+' erzeugt.',1);
 end;
 
 destructor tBefehlThread.destroy;
 begin
-  gibAus('Befehl zerstört.',3);
+  gibAus('Befehl zerstört.',1);
   p.free;
   inherited destroy;
 end;
@@ -8221,7 +8221,7 @@ begin
       'externen Befehl ausführen ... '+intToStr(belegterSpeicher)+#10+
         p.executable+#10+
         p.parameters.text,
-      3);
+      1);
     p.execute;
     gibAus('... fertig!',1);
   end
@@ -8950,7 +8950,7 @@ begin
     uO:=max(uO,1+beschriftungen[i].unten-hoehe);
   end;
   if lO+oO+rO+uO>0 then
-    gibAus('Extra-Ränder: '+intToStr(lO)+' Pixel links, '+intToStr(oO)+' Pixel oben, '+intToStr(rO)+' Pixel rechts und '+intToStr(uO)+' Pixel unten.',3);
+    gibAus('Extra-Ränder: '+intToStr(lO)+' Pixel links, '+intToStr(oO)+' Pixel oben, '+intToStr(rO)+' Pixel rechts und '+intToStr(uO)+' Pixel unten.',1);
 
   setLength(farben,byte(waagerecht)*(breite-hoehe)+hoehe);
   for i:=0 to length(farben)-1 do begin
@@ -9192,11 +9192,11 @@ begin
     nPalette:=allePaletten[length(allePaletten)-1];
   end
   else
-    gibAus('Überschreibe bereits vorhandene Palette '''+nPalette.name+'''.',3);
+    gibAus('Überschreibe bereits vorhandene Palette '''+nPalette.name+'''.',1);
   nPalette.kopiereVon(palette);
   nPalette.name:=name;
   palette.free;
-  gibAus('Neue Palette '''+nPalette.name+''' erstellt!',3);
+  gibAus('Neue Palette '''+nPalette.name+''' erstellt!',1);
   result:=true;
 end;
 
@@ -9217,7 +9217,7 @@ begin
     exit;
   end;
   bt.suspended:=false;
-  gibAus('Befehl gestartet.',3);
+  gibAus('Befehl gestartet.',1);
   if bt.bg then begin
     setLength(externeBefehle,length(externeBefehle)+1);
     externeBefehle[length(externeBefehle)-1]:=bt;
@@ -9239,13 +9239,14 @@ begin
     for i:=0 to length(externeBefehle)-1 do
       b:=b or (assigned(externeBefehle[i]) and not externeBefehle[i].fertig);
     if b then begin
-      if c then gibAus('Warte auf Beendigung externer Befehle ...',3);
+      if c then
+        gibAus('Warte auf Beendigung externer Befehle ...',1);
       c:=false;
       sleep(10);
     end;
   until not b;
   if not c then
-    gibAus('... alle externen Befehle fertig.',3);
+    gibAus('... alle externen Befehle fertig.',1);
   for i:=0 to length(externeBefehle)-1 do
     if assigned(externeBefehle[i]) then externeBefehle[i].free;
   setLength(externeBefehle,0);
diff --git a/werteunit.pas b/werteunit.pas
index 7b7385f..da1fadb 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -1633,7 +1633,7 @@ begin
     floatToStr(p) +
     ')-> ' +
     floatToStr(extended(werte[posi[i]['x']+posi[i]['y']*params.xSteps])),
-    3
+    1
   );
   result:=werte[posi[i]['x']+posi[i]['y']*params.xSteps];
 end;