[arvaq]

Código Delphi [-]
procedure Tfmenu.bleerClick(Sender: TObject);
begin
  at := 'AT+CMGF=1' + #13#10;   {SMS en formato texto}
  ComPort.WriteStr(at);
  Sleep(100);
  
   at := 'AT+CMGL="REC READ"'+ #13#10; (CON ESTE COMANDO NO PUEDO LEER LOS MENSAJES. ME DICE OK SOLAMENTE NO DE POR QUE)

  at := 'AT+CMGR=1' + #13; (Con este si los puedo leer. AT+CMGR= Indice del mensaje a leer, ej 1, 2, 3, 10. Pone o CMGR o CMGL fijate cual te anda y te sirve).

  ComPort.WriteStr(at);
  Sleep(100);
end;

//en el componente comport.

Código Delphi [-]
procedure Tfmenu.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
  leersms(str);
end;