procedure TMonThread.Execute;
begin
DoThread(False);
end;

procedure TMonThread.Stop;
begin
Form1.Memo_sms.Lines.Add('Thread Destroyed');
// clear buffers
SetCommMask(ComPort2.Handle, 0);
PurgeComm(ComPort2.Handle, PURGE_TXCLEAR or PURGE_RXCLEAR);
//stop thread
Stopped:= True;
end;

procedure TMonThread.Input;
var
  input,Answer : String;
begin
Input := ComPort2.RecvTerminated(readtotal,eol);
ShowMessage('" '+Input+' "');
DoThread(False);
end;