procedure TFormMain.pointerpos(dataset: integer);
var
  currentset: tProtokoll; // Var vom Typ record
begin
  if (protokoll < 0) or (protokoll >= filesize(protokolldatei))
  then
    exit
  else
  begin
    Seek(
      protokolldatei,
      protokoll); // Zeiger verschieben/vorbereiten
    read(protokolldatei, currentset); // Datensatz lesen
    // ---------------------------------------------
    // Zuweisen
    articleedit.Text := currentset.Hardwarename;
    modeledit.Text := currentset.Modellbaunummer;
    bcedit.Text := currentset.bc;
    asintext.Text := currentset.ASIN;
    employee.Text := currentset.Gradingschluessel;
    desc := currentset.Beschreibung_lang;
    kbmemo := currentset.Diagnosemeldung;
    SingleSellBOOL.Checked := currentset.EinzelVK;
    asshown.Checked := currentset.kompletteszubehoer;
    pckgis.Checked := currentset.ovp;
    condition.Text := currentset.Zustand;
    timestmp.Caption := StrToDateTime(currentset.zeitstempel);
    dpt.Text := currentset.Abteilung;
    screenactive.Checked := currentset.signal_an_screen;
    wlancheck.Checked := currentset.netzwerkverbindung;
    errcodeedit.Text := strtoint(currentset.Fehlercode_hex);
    erredit.Text := currentset.Fehlermeldung;
    Image1.Picture.Bitmap := currentset.bild1;
    Image2.Picture.Bitmap := currentset.bild2;
    Image3.Picture.Bitmap := currentset.bild3;
  end;
end;