Du benutzt Prozeduren (z.B. TForm1.FormCreate, TForm1.FormDestroy), die nicht in der Klassendefinition vorhanden sind. Erweitere deinen Kram im interface-Abschnitt.
Oben unter
Delphi-Quellcode:
{ ...}
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
musst du noch
Delphi-Quellcode:
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
schreiben.
Nach "procedure TForm1.Button7Click(Sender: TObject);" hast du am Ende zwei mal "end;" geschrieben - das gehört da aber nur einmal hin - jedes "begin" erfordert ein "end" - da ist eins zu viel.
Dann gibt es noch diese lustige Stelle:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
begin
const
BufferSize = 32;
procedure TForm1.Button5Click(Sender: TObject);
Das ist so nicht möglich. Mach mal das obere Zeug (alles über dem zweiten "procedure [...]" weg und tu das "const Buffersize = 32;" direkt unter das zweite Procedure, dass es so aussieht:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
const
BufferSize = 32;
var
Buffer: array[0..BufferSize - 1] of Adresse;
i, p: integer;
begin
Seek(datei,0);
p:=0;
Weiter habe ich nicht probiert, bin ja nun selber schwer mit Delphi beschäftigt
