5dpo: чтение данных из Serial port

Memo1.Lines.Add(SdpoSerial1.ReadData);

If (Length(Text)<=20) then
   begin
  Text:=(SdpoSerial1.ReadData);
   end
  else
  begin
  Label2.Caption:=Text;
  Text:='0';
  end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: char);
// ...
 
    if pos('+++',s)>0 then begin
      //i:=Form1.SdpoSerial1.WriteData('+++'); // Послать команду контроллеру
      Form1.SdpoSerial1.WriteData('+++'); // Послать команду контроллеру
      //Memo1.Append('Модем в режим команд '+inttostr(i));
      Memo1.Append('Модем в режим команд ');
      s:= Copy(s,pos('+++',s),length(s)-pos('+++',s)+1);
      sleep(3000);             //пауза ожидания перевода модема в режим команд
    end;
// ...
 
// Сразу за обработкой "+++" идет обработка "AT":
    if pos('at',s)>0 then begin
      {
      Form1.SdpoSerial1.WriteData(chr(13)+chr(10)+'+++'); // Послать команду контроллеру
      sleep(2000);             //пауза ожидания перевода модема в режим команд
// вот как узнать, когда ушло полностью?
      if Form1.SdpoSerial1.DataAvailable=false then Memo1.Append('_+1000_');
      if Form1.SdpoSerial1.DataAvailable=false then sleep(1000);
      if Form1.SdpoSerial1.DataAvailable=false then Memo1.Append('_+1000_');
      if Form1.SdpoSerial1.DataAvailable=false then sleep(1000);
      }
      Form1.SdpoSerial1.WriteData('at'+chr(13)+chr(10)); // Послать команду контроллеру
      sleep(500);
// вот как узнать, когда ушло полностью?
      //if SdpoSerial1.OnRxData=false then begin
      //end;
      s:= Copy(s,pos('at',s),x-pos('at',s)+1);
      Memo1.Append('Команда модему:'+s);
      Form1.SdpoSerial1.WriteData(s); // Послать команду модему
// вот как узнать, когда ушло полностью? Команда последняя и просто тупо ждем ответ в функции приема
      //sleep(500);              //пауза перед приёмом (может и не надо)
      Memo1.Append('Ответ модема:');
      //ShowMessage('AT='+s+'_');
    end;
// Функция приёма по факту прихода:
procedure TForm1.SdpoSerial1RxData(Sender: TObject);
begin
  // Случилось придти данным с контроллера
  Memo1.Append(Form1.SdpoSerial1.ReadData);
end;