Programm Stop

[Schuby]

Erstmal Danke für die vielen Antworten, aber jetzt blicke ich nicht ganz durch
wie ich meine Procedure da rein bekomme, ich zeige euch mal meine

Delphi-Quellcode:

procedure TForm1.Btn_GCode_Memo2_sendenClick(Sender: TObject);
var count,i: integer;
begin
  if devOpen then
  begin
        for I:= 1 to Form1.Memo2.Lines.Count do
        begin
          Cmd.typ:= CTRLcmd;
          Cmd.cmd:= $10;   //
          if not SendCmd(cmd) then //sende über usb
          begin
            MessageDlg('Sende Fehler.!', mtError, [mbOK], 0);
            Exit;
          end;
          SendeStr:= Form1.Memo2.Lines[i-1];
          //Jetzt Zeile senden
          xx:= Buff_fuellen(SendeStr);
          USBsendData(@TxBuff, count);

          //auf ok warten 
          repeat
            EmpfStr:='';
            USB_Read;
            sleep(5);
          until res > 0;
          RxBuff_Daten_To_String;
          Memo1.Lines.Add(EmpfStr);
        end;
  end;
end;

mfg