After quick look I noticed that
var Vector : array of Byte; SetLength(Vector, 8); Vector[0] := 1; Vector[1] := 2; Vector[2] := 3; Vector[3] := 4; Vector[4] := 5; Vector[5] := 6; Vector[6] := 7; Vector[7] := 8; does not match Dim vector As String = "12345678" Should be something like Vector[0] := '1'; Vector[1] := '2'; Vector[2] := '3'; Vector[3] := '4'; Vector[4] := '5'; Vector[5] := '6'; Vector[6] := '7'; Vector[7] := '8'; I didn't look at the rest.
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
