Anzahl Zeilen Beschänkung im Memofeld

[akurka]

Hallo,
Besten Dank für alle die geholfen haben. Jetzt läuft es.

Delphi-Quellcode:

              i:=20;
              while Form1.Memo1.Lines.Count - 1 < i do
                    Form1.Memo1.Lines.Add('');
               Form1.Memo1.Lines[0]:='COM3 open';
                For i:= 0 to 15 do
                //SENDBYTE(Meldung[i]);
                Form1.Memo1.Lines[i+2]:= IntToHex(Meldung[i],2);
              end;
              Form1.Memo1.Lines[19]:='CNCStatus gesendet';
              DTR(0);

Gruss Anton