Разбить картинку на пикселям (побитово)

procedure GetAllFiles( Path: string; Lb: TListBox );
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.bmp', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Items.Add( sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;
 
 procedure start();
   var  x,y,i,l:integer;
   p:TBitmap;
   c:TColor;
 
   begin
 
        for i:=0 to 32 do begin
 
 neuro_web[i].weight:=0;
 neuro_web[i].output:=50;
 neuro_web[i].name:=chr(Ord('А')+i);
     p:=TBitmap.Create;
     p.LoadFromFile(ExtractFilePath(Application.ExeName)+'\res\'+neuro_web[i].name+'.bmp');
    for x:=0 to 29 do
    for y:=0 to 29 do begin
    c:=p.Canvas.Pixels[x,y];
    l:=round((GetRValue(c)+GetGValue(c)+GetBValue(c))/3);
    neuro_web[i].memory[x,y]:=l;
 
    end;
       end;
 
       p.Free;
 
   end;