for k:=1 to 3 do
      begin
        case k of
        1: Result[2][l,h] := (Line^[3*l+k]);
        2: Result[1][l,h] := (Line^[3*l+k]);
        3: Result[3][l,h] := (Line^[3*l+k]);
        end;
      end;