EOutPutBufferTooSmall- Async Pro

[EConvertError]

Hallo!

Schön langsam bin ich richtig deprimiert, weil ich das jetzt so wie oben beschrieben gemacht habe- ohne Erfolg.

Hier der Code (FText ist vom Typ TStrings und ist der Inhalt einer Textdatei).
FlowControl habe ich keine eingestellt. Das liegt auch nicht in meiner Macht, da der Benutzer Einstellungen wie Parity, Baud und FlowControl einstellen wird.

Delphi-Quellcode:

procedure TComPort.SendData;
var
  I: Integer;
begin
  { Sende FText }
  try
    ApdComPort.Open:= TRUE;
    for I:= LineIndex to FText.Count-1 do begin  //LineIndex ist eine Integer var
      if ApdComPort.OutBuffFree >= Length(FText[I]) then
        ApdComPort.Output:= FText[I]+#10#13
      else begin
        StatusTrigger:= ApdComPort.AddStatusTrigger(stOutBuffFree);
        ApdComPort.SetStatusTrigger(StatusTrigger, Length(FText[I]) , TRUE);
        LineIndex:= I;
        Break;
      end;
    end;
  finally
    ApdComPort.Open:= FALSE;
  end;
end;

procedure TComPort.TriggerStatus(CP: TObject; TriggerHandle: Word);
begin
  { OnTriggerStatus }
  if TriggerHandle= StatusTrigger then
    SendData;
end;

Das Problem liegt dabei, dass TriggerStatus nicht aufgerufen wird, obwohl ich es mit der folgender Codezeile zugewiesen habe:

Delphi-Quellcode:

ApdComPort.OnTriggerStatus:= TriggerStatus;

[Edit]Ich wäre eigentlich schon glücklich wenn mir jemand zeigen könnte, wie man eine längere (sprich 13 kb) Textdatei mit dem ApdComPort (Async Pro) versendet. Den Rest würde ich mir schon selbst dazubauen. Ich bin schon am verzweifeln. :wall: :wall: [/Edit]

Vielen Dank für eure Hilfe,
Andy