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

procedure TframeLauf.TestClick(Sender: TObject);
const
  coArtikel: array[1001..1002] of array[0..1] of String
           = (('Monitor Fujitsu-Siemens','199,99€'),
              ('Festplatte 250 GB','89,50€')
             );
var
  Zahl: Integer;
begin
 Zahl := 1001;
  if (Zahl>=Low(coArtikel)) and (Zahl<=High(coArtikel)) then
    begin
      Panel1.Caption := coArtikel[Zahl,0];
      Panel2.Caption := coArtikel[Zahl,1];
    end
  else ShowMessage('Falsche Eingabe');
end;