Fehler ind er Procedure?

[toms]

Sorry, aber dein Code ist sehr unübersichtlich.

Ich würde in der Delphi Hilfe mal das Stichwort Array nachschlagen.
Dann kannst du die Variablen use1 bis use33 über ein Array deklarieren.
Es wird dann alles sehr viel einfacher, kürzer, übersichtlicher.

Auch würde ich in der Delphi Hilfe mal das Stichwort FindComponent nachschlagen.

Auch kannst du deine Case Statements vereinfachen.
Z.B anstatt

Delphi-Quellcode:

 Case i Of 
           8: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          16: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          24: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          32: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          40: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          48: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          56: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end; 
          64: begin 
              Inc(links,verschiebung); 
              oben := 10; 
              end;

kannst du

Delphi-Quellcode:

 
  Case i Of 8, 16, 24, 32, 40,48,56,64:
  begin
    Inc(links,verschiebung);
    oben := 10;
  end;

schreiben.