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:

Function csp2GetPacket (stPacketData : array of char ; lgBarcodeNumber : integer; nMaxLength : integer): integer; stdcall; External 'csp2.dll';
Function csp2TimeStamp2Str(var Stamp: char;value: PChar;nMaxLength: integer): longint; stdcall; External 'csp2.dll';
{...}
procedure TForm1.Button2Click(Sender: TObject);
var count : integer;
  k,x: Integer;
  i,AsciiMode,RTC,PacketLength : integer;
  nRetStatus: longint;
  Packet : array[0..100] of char;
  Barcode : string;
  tmp: pchar;
  Timestamp:string[21];
  nComPort : longInt;
begin
listbox1.clear;
csp2Init(port);
count := csp2ReadData;
statusbar1.Panels[0].Text:='Anzahl der vorhandenen Barcodes: '+inttostr(count);

for i := 0 to 100 do
  packet[i] := #0;

if count > 0 then
begin
  for I := 0 to count-1 do
  begin
    barcode := '';
    //PacketLength := csp2GetPacket(Packet,i,63);
    for k := 0 to 100 do
    PacketLength := csp2GetPacket(packet[1],k,100);
    for k := 3 to PacketLength -4 do
      barcode := barcode + packet[k];
    listbox1.Items.Add('Barcode: '+barcode);
for k := PacketLength-3 to PacketLength-2 do
begin
    nRetStatus := csp2TimeStamp2Str(packet[k],tmp,21);
    timestamp := string(tmp);
    listbox1.Items.Add(timestamp);
end;
end;
end;					

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

procedure meineFunc(var zahl:integer);
var i:integer;
begin
for i := 1 to 10 do
inc(zahl);
end;
{...}
var count : integer;
begin
count := 1;
meineFunc(count);
showmessage(inttostr(count));
{...}