[baton4ik]

Строка - массив символов, начинается не с "1", а с нуля.

Замени

for i:=1 to 4 do
begin
data[i]:=Ord(GetChar(s,i))-48;
end;

на

for i:=0 to 3 do
begin
data[i+1]:=Ord(GetChar(s,i))-48;
end;