Hola Gastón.
No sé en absoluto que es ComPort1 en tu código. Pero indudablemente Read espera un caracter no un número.
Primero deberías convertirlo a caracter con IntToStr y de ser necesario, hacerle un cast a PChar.
Algo como:
Código Delphi
[-]
ComPort1.Read(DataSerial, PChar(IntToStr(1)));
Creo que podrías usar esto con el mismo resultado:
Código Delphi
[-]
ComPort1.Read(DataSerial, '1');
Saludos.