Frage zu RS232 mit Emfangen von Daten ?!?

[gizmoh]

Das Senden über die RS232 (ComPort) geht super aber das empfangen wieder (Daten-Strings)
geht irgent wie nicht ????

--> auszug:

Delphi-Quellcode:

 procedure TForm1.ComPortTriggerAvail(CP: TObject; Count: Word);

  var I: Integer;
      C: Char;

  function GibZeichen: String;
   begin
    // Ist das Zeichen ein druckbaren Zeichen oder ein Steuerzeichen???
    if Ord(C) >= Ord(ZeichenBlank) then
     // druckbares Zeichen:
     Result := C
    else
     // Steuerzeichen:
     begin
      case c of
       NUL : Result := 'NUL';
       SOH : Result := 'SOH';
       STX : Result := 'STX';
       ETX : Result := 'ETX';
       EOT : Result := 'EOT';
       ENQ : Result := 'ENQ';
       ACK : Result := 'ACK';
       LF  : Result := 'LF';
       FF  : Result := 'FF';
       CR  : Result := 'CR';
       SO  : Result := 'SO';
       SI  : Result := 'SI';
       DLE : Result := 'DLE';
       DC1 : Result := 'DC1';
       DC2 : Result := 'DC2';
       DC4 : Result := 'DC4';
       NAK : Result := 'NAK';
       ETB : Result := 'ETB';
       CAN : Result := 'CAN';
       SUB : Result := 'SUB';
       ESC : Result := 'ESC';
      else
       Result := IntToStr(Ord(C));
      end;
      // Steuerzeichen in <>:
      Result := '<'+Result+'>';
     end;
   end;

begin
 {Event, dass nach dem Empfangen eines Datenpacketes ausgelöst wird:    }
 {Count: Anzahl der empfangenen Zeichen                                 }
 {String auswerten: Gewicht, Waagen-Nummer, ... Weitere Aktionen starten}
 for I := 1 to Count do
  begin
   C := ComPort.GetChar;
   with Edit1 do
    Text := Text + GibZeichen;
    vonWaage := Edit1.Text;

  end;
 end;

kann mir dar eine helfen ?
Ich mache sonst kaum was in Delphi ...