[rgstuamigo]

Aparte de lo comentado por Alberto y Delphius ,te hago una observacion:
Si has declarado tu Array asi:

Código Delphi [-]
type mensaje_letrero = record
  mensaje : array[1..5] of byte;//<---
end;

Eso siginifica que tus indices deben empezar en uno (1) y no en cero (0).
por lo que tu ciclo for deberia ser asi:

Código Delphi [-]
for i:=1 to 5 do begin
...
...

Saludos...