Excel в Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox5: TComboBox;
    Label1: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Ap : Variant;
  tip, cvet, nazn: string;
  n, i, cen1, cen2: real;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=-1;
  Ap := CreateOleObject('Excel.Application');
  Ap.Workbooks.Open('G:\Ïðîãðàììà\BD');
  tip:=ComboBox1.Text;
  cvet:=ComboBox2.Text;
  cen1:=strtoint(Edit1.Text);
  cen2:=strtoint(Edit2.Text);
  nazn:=ComboBox5.Text;
  for n:=3 to 4 do
  begin
   i:=i+1;
   if
 [B]  Ap.Cells[n,1]=tip and Ap.Cells[n,2]=cvet and Ap.Cells[n,5]>=cen1 and Ap.Cells[n,5]<=cen2 and Ap.Cells[n,6]=nazn;[/B]
   then
   begin
   itog:=Ap.Rows[n];
   Memo1.Lines[i]:=itog;
   end;
  end;
  Ap.DisplayAlerts := False;
  Ap.Quit
end;
 
end.

(Ap.Cells[n,1]=tip) and
  (Ap.Cells[n,2]=cvet) and
  (strtofloat(Ap.Cells[n,5])>=cen1) and
  (strtofloat(Ap.Cells[n,5])<=cen2) and
  (Ap.Cells[n,6]=nazn);

cen1:=strtofloat(Edit1.Text);
cen2:=strtofloat(Edit2.Text);