1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.positionieren(datensatz: integer);
var
  aktdatensatz: Archiv;

begin
  if (datensatz<0) or (datensatz>FileSize(datei)) then exit
    else
      begin
        seek(datei, datensatz);
          read(datei, aktdatensatz);
          if aktdatensatz.bild =('') then
            else
          Image1.Picture.LoadFromFile(aktdatensatz.bild);
             { Mediaplayer1.FileName:= aktdatensatz.video;
                MediaPlayer1.open;
                  MediaPlayer1.Display:= panel1;
                    MediaPlayer1.DisplayRect:= Panel1.ClientRect;}
                  Memo1.Lines.Text:= aktdatensatz.beschreibung;
                end;
              end;					

1:
2:

if (datensatz = FileSize(datei))
    then positionieren(datensatz(0));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
datensatz: integer;
begin

if Button = mbmiddle then MediaPlayer1.Play;
if Button = mbmiddle then Panel1.Visible:=true;
case button of

mbleft: positionieren(FilePos(datei)-2);

mbright: if datensatz = FileSize(datei)
            then positionieren(0);
        else positionieren(FilePos(datei));

end;					

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

case Button of

mbleft: positionieren(FilePos(datei)-2);

mbright:

mbmiddle: MediaPlayer1.Play;
             Panel1.Visible:=true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var datensatz: integer;
begin
  case Button of
    mbmiddle: begin
                MediaPlayer1.Play;
                Panel1.Visible:=true;
              end;
    mbleft: positionieren(FilePos(datei)-2);  //sollte man hier nicht auch überprüfen ob man beim ersten datensatz angekommen ist?
    mbright: if datensatz <= FileSize(datei) then 
               positionieren(FilePos(datei));  // Strichpunkt vor Else is böse, das will delphi nicht!
             else positionieren(0);
  end;
end;					

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

var i: Integer;
//...
i := 4;
case i of
  1: DoSomething;
  2: DoSomething2;
else
  DoSomethingElse;
end;
//DoSomethingElse wird aufgerufen!					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
datensatz: integer;

begin
case button of

mbleft: positionieren(FilePos(datei)-2);

mbmiddle: begin MediaPlayer1.Play;
            Panel1.Visible:=true;
        end;

mbright:  begin
            if datensatz <= FileSize(datei) then
               positionieren(FilePos(datei))
             else positionieren(0);

end;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case button of

mbleft: positionieren(FilePos(datei)-2);

mbmiddle: begin MediaPlayer1.Play;
            Panel1.Visible:=true;
        end;

mbright:  while not EOF(datei) do
              begin
               positionieren(FilePos(datei));


end;
end;
end;					

1:

mbleft: positionieren(FilePos(datei)-2);