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:

procedure TForm1.TnEmulVT1DataAvailable(Sender: TObject; Buffer: Pointer;
  var Len: Integer);
var
  i : Integer;
begin
  if ready = false then begin
    // LogIN Daten (Benutzer / Kennwort)
    TnEmulVT1.SendStr('********' + #9);
    TnEmulVT1.SendStr('********' + #13);

    // evt. nicht geschlossene JOB's schliessen
    for i := 1 to 5 do TnEmulVT1.SendStr(#13);

    // im 'Aktivitäten-Status' anmelden
    TnEmulVT1.SendStr(#54#13);

    // Aufträge laden
    for i := 1 to 25 do TnEmulVT1.SendStr(#71#13);
    TnEmulVT1.SendStr(#32);

    // Auftragsnummer eingeben
    for i := 1 to 6 do TnEmulVT1.SendStr(#9);
    TnEmulVT1.SendStr('389179' + #13);

    // Auftragsinformationen aufrufen
    TnEmulVT1.SendStr('17' + #13);

    // Position anwählen, an die der Text geschrieben wird
    for i := 1 to 7 do TnEmulVT1.SendStr(#6);
    for i := 1 to 7 do TnEmulVT1.SendStr(#9);

    TnEmulVT1.SendStr('Das ist die Kopfzeile' + #9);  // Hier kommt an: "Das ist die Kopfz" .. danach absolut gar nix mehr
    TnEmulVT1.SendStr('Das hier ist der Text');

    ready := true;
  end;
end;