1:
2:
3:
4:
5:
6:
7:
8:
9:

Type
  TWort = record
    gWort : String[80];
    Silbe : Array[1..10] of String[8];
    SZahl : Integer;
    Bild  : TBitmap;
  end;
Var
  Wort : TWort;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm3.Button4Click(Sender: TObject);
// Button mit Beschriftung 'Test', soll bei jedem Klick
// den nächsrten Datensatz anzeigen
var
  ui, uj    : Byte;
  hWort     : String;
begin
  if hz=0 then begin  // Es wurde noch kein Datensatz gelesen
    Assignfile(WDatei,WDatOrt);
    reset(WDatei);
    DOpenFlag:=true;
    hz:=FileSize(WDatei);
    if mz=0 then begin
      ui:=0;
    end;
  end;
  ui:=succ(ui);
  mz:=ui;
  if ui<=hz then begin
    seek(Wdatei,ui-1);
    read(WDatei,Wort);
    Edit1.Text:=Wort.gWort;
    hWort:='';
    for uj:=1 to Neuwort.SZahl do
      hWort:=hWort+Neuwort.Silbe[ui];
    Edit2.Text:=hWort;
    Image1.Picture.Bitmap:=Wort.Bild; // *****
  end
  else begin
    closefile(WDatei);
    DOpenFlag:=false;
    Button4.Visible:=false;
  end;
end;
.
.
.
Initialization
  ui:=0;
  hz:=0; 

end.