Обработка изображения

if OpenDialog1.execute then
image1.Picture.LoadFromFile(OpenDialog1.filename);
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

  with OpenPictureDialog1, Memo1 do begin
    Options:=Options + [ofAllowMultiSelect];
    if Execute then begin
      Clear;
      Lines.Assign(Files);
    end;
  end;

procedure TForm1.gf1Click(Sender: TObject);
begin
 
 with OpenPictureDialog1 , Memo1 do
 begin
    Options:=Options + [ofAllowMultiSelect];
     if Execute then
    begin
      Clear;
      str:=FileName;
      Lines.Assign(files);
      lines.Add(ExtractFileName (str));
 
    end;
  end;              
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  fname: string;
begin
  with OpenPictureDialog1, ListBox1 do begin
    Options:=Options + [ofAllowMultiSelect];
    Filter:='Bitmaps|*.bmp';
    if Execute then begin
      Clear;
      for i:=0 to Files.Count-1 do begin
        fname:=ExtractFileName(Files[i]);
        Items.Add(Copy(fname, 1, Length(fname)-4));
      end;
    end;
  end;
end;

for c:=0 to Items.Count-1 do begin
          if (ItemIndex>-1) then
          Image1.Picture.LoadFromFile(fname);
        end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
    Image1.Picture.LoadFromFile(Items[ItemIndex]+'.bmp');
end;

procedure TForm1.N1Click(Sender: TObject);
begin
W:=image1.Picture.Width;
H:=image1.Picture.Height;
for i:=1 to W-1 do
for j:=1 to H-1 do
x[i,j]:=image1.Canvas.Pixels[i,j];
 
max:=x[1,1];
min:=x[1,1];
 
  for i:=1 to W-1 do
   for j:=1 to H-1 do
     begin
     if (x[i,j]>max) then max:=x[i,j];
     if (x[i,j]<min) then min:=x[i,j];
     end;
 
   for i:=1 to W-1 do
    for j:=1 to H-1 do
     begin
     a1:=round((x[i,j]-min)/(max-min)*255);
     a2:=round((x[i,j]-min)/(max-min)*255);
     a3:=round((x[i,j]-min)/(max-min)*255);
     Image1.Canvas.Pixels[i-1,j-1]:=RGB(a1,a2,a3);
     end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls, ExtDlgs, ComCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    MainMenu: TMainMenu;
    gf1: TMenuItem;
    Close1: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    N1: TMenuItem;
    ListBox1: TListBox;
    Splitter1: TSplitter;
    Button1: TButton;
    Image2: TImage;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Button2: TButton;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    procedure Close1Click(Sender: TObject);
    procedure gf1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
Type
 TArrByt=array [0..1028,0..1028] of byte;
 TArrReal=array [0..1028,0..1028] of real;
 
var
  Form1: TForm1;
  x: TArrByt;
  x1: TArrByt;
  x2,x4: TArrByt;
  y,y1: TArrReal;
  i,j,H,W:integer;
  str:string;
  max,min:real;
  a1, a2, a3 :byte;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Close1Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Caption:='Обработка изображений фации крови';
TrackBar1.Enabled:=false;
end;
 
procedure TForm1.gf1Click(Sender: TObject);
var
fname:string;
begin
 with OpenPictureDialog1, ListBox1 do begin
    Options:=Options + [ofAllowMultiSelect];
    Filter:='Bitmaps|*.bmp';
    if Execute then begin
      Clear;
      for i:=0 to Files.Count-1 do begin
        fname:=ExtractFileName(Files[i]);
        Items.Add(Copy(fname, 1, Length(fname)-4));
       end;
     end;
 
  end;
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
W:=image1.Picture.Width;
H:=image1.Picture.Height;
for i:=0 to W-1 do
for j:=0 to H-1 do
x[i,j]:=image1.Canvas.Pixels[i,j];
 
max:=x[1,1];
min:=x[1,1];
 
  for i:=0 to W-1 do
   for j:=0 to H-1 do
     begin
     if (x[i,j]>max) then max:=x[i,j];
     if (x[i,j]<min) then min:=x[i,j];
     end;
 
   for i:=0 to W-1 do
    for j:=0 to H-1 do
     begin
     a1:=round((x[i,j]-min)/(max-min)*255);
     a2:=round((x[i,j]-min)/(max-min)*255);
     a3:=round((x[i,j]-min)/(max-min)*255);
     Image1.Canvas.Pixels[i-1,j-1]:=RGB(a1,a2,a3);
     end;
     TrackBar1.Enabled:=true;
end;
 
//эта процедура работает, но странно.. только на часть картинки...
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
Image1.Picture.LoadFromFile(Items[ItemIndex]+'.bmp');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
porog: string;
porogint:integer;
L: pByteArray;
begin
porog:=edit1.Text;
porogint:=strtoint(porog);
if  (porogint<0) then porogint:=0;
if (porogint>255) then porogint:=255;
 
for i:=0 to Image1.Picture.Bitmap.Height - 1  do
  begin
   L := Image1.Picture.Bitmap.ScanLine[i];
    for j:=0 to Image1.Picture.Bitmap.Width- 1  do
   begin
      if (L^[j]<=porogint) then  L^[j]:=0 else L^[j]:=255;
   end;
 
     end;
        Image1.Refresh;
 
end;
 
//эта пока не работает, не пойму почему..
procedure TForm1.TrackBar1Change(Sender: TObject);
var
porog: byte;
begin
W:=image2.Picture.Width;
H:=image2.Picture.Height;
     porog:=TrackBar1.Position;
     Label1.Caption:=IntToStr(TrackBar1.Position);
  for i:=0 to W-1 do
    for j:=0 to H-1 do
     begin
     a1:=round((x[i,j]-min)/(max-min)*255);
     a2:=round((x[i,j]-min)/(max-min)*255);
     a3:=round((x[i,j]-min)/(max-min)*255);
     if (a1>porog) and (a2>porog) and (a3>porog) then
      Image2.Canvas.Pixels[i-1,j-1]:= RGB(a1,a2,a3)
        else   Image2.Canvas.Pixels[i-1,j-1]:=RGB(round(min),round(min),round(min));
     end;
 
 
end;
 
end.