车牌号识 别

var
  row,lie:integer;
begin
form1.Repaint;
for row:=Trackbar1.Position to trackbar2.Position do
  begin
    for lie:=1 to 400 do
    begin
      t:=Image1.canvas.pixels[row,lie];
      p[row,lie]:=getbvalue(t);
    end;
  end;


  for row:=Trackbar1.Position to trackbar2.Position do
  begin
    for lie:=1 to 400 do
    begin
      if p[row,lie]<trackBar3.Position then
        form1.Canvas.Pixels[row,lie]:=clred;
    end;
  end;