¿Cómo cortar cadenas en Delphi 7?

[CM6ISG]

Saludos: Gracias por acudir en mi ayudad, hice la simulación y todo perfecto, exactamente eso es lo que necesito hacer. Pero cuando fui a implementarlo entre las propiedades y funciones del ComPort que tengo no encuentro (Output_CportLib), la versión que tengo es ComPort Library ver. 2.64, estoy usado Delphi 7, Windows 7 Professional x32
Use ComPort1.ReadStr, que la que he probado y me funciona,
A la hora de compilar me da el siguiente error

Project Catsimulado.exe raised exception class EStringListError with message ‘List index out bounds (1)’. Process stopped. Use Step or run to continue.
no logro determinar donde esta el error.

Código Delphi [-]
unit simulacion;      
 interface       uses     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,     Dialogs, StdCtrls, CPort;
type   
  TForm1 = class(TForm)  
 Memo1: TMemo;
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Edit4: TEdit;
 Edit5: TEdit;  
 Edit6: TEdit;
 Label1: TLabel; 
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel; 
 Label5: TLabel;
 Label6: TLabel; 
 Label7: TLabel;
 Button1: TButton; 
 ComPort1: TComPort;

  procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  private       { Private declarations }     
  public       { Public declarations } 
  end;    

 var     
 Form1: TForm1;      
 implementation
   {$R *.dfm} 
 procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);

 var      
StrList: TStringList;
Power, Qsl, Modo, FTX, FTR, Str : String;   

    begin
   ComPort1.ReadStr(Str, Count);
   StrList := TStringList.Create;  
   ExtractStrings(['#'], [], PChar(Str), StrList);   
   
   Power := StrList[0];      
   Qsl := StrList[1]; 
   Modo := StrList[2];  
   FTX := Copy(StrList[3],3,Length(StrList[3]));  
   FTR := Copy(StrList[4],3,Length(StrList[4]));      
   Memo1.Text := Str;
   Edit1.Text := Str;
   Edit2.Text := Power;   
   Edit3.Text := Qsl;   
   Edit4.Text := Modo;    
   Edit5.Text := FTX;  
   Edit6.Text := FTR;    
   StrList.Free;  
   end;   
end.

Gracias colega por tu respuesta, tan rápido.