procedure TformMain.prtOpen;
begin
  Port1.Port                     := 'COM1';           // String
  Port1.CustomBaudRate  := 9600;                // Integer
  Port1.DataBits               := dbEight;           // 8 Bit
  Port1.Parity.Bits            := prNone;            // None
  Port1.StopBits               := sbOneStopBit;   // 1 Bit

  try
    Port1.Open;
  except
  end;
end;

보통 Rs-232 쓸 때 n,8,1 이라고 Start Bit는 신경 안 쓰고 n - parity None, 8 - data bit 8 bit, 1 - stop bit 1 bit로 많이 쓰거든요..

Parity bit - None(prNone), Odd(prOdd), Even
Data bit  - 5, 6, 7(dbSeven), 8(dbEight)
Stop bit - 1, 2(sbTwoStopBit)

그리고 해당 포트로 출력시에는 if Port1.Connected then Port1.WriteStr(s);
이렇게 출력하면 되고요...

주의 할 것은 Buffer 에서 Outputsize 를 설정하셔야 하는데 위의 's'가 그 Size보다 크지 않으면 되구요...

그럼 수거..