won't compile shane

unit LogCall;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, ComCtrls;

type
  TFrame1 = class(TFrame)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    DBNavigator1: TDBNavigator;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DataSource1: TDataSource;
    ListBox1: TListBox;
    DateTimePicker1: TDateTimePicker;
    procedure FormActivate(Sender: TObject);
    procedure DBEdit8DblClick(Sender: TObject);
    procedure DBEdit8Exit(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FrameEnter(Sender: TObject);
  private
    { Private declarations }
  public
    WhichScreen: string;
    { Public declarations }
  end;

implementation

uses DispModule, lookupcust, Deliveries;

{$R *.dfm}
{$R DBImages.RES}

procedure TFrame1.FormActivate(Sender: TObject);
var c:

begin
with DBNavigator1 do
    for c := 0 to ControlCount -1 do
      if Controls[c] is TNavButton then
        with TNavButton(Controls[c]) do
        begin
          Glyph := nil;
          Font.Style := [fsBold];
          case TNavigateBtn(c) of
            nbInsert :begin
                           Caption := 'Add';
                           Glyph.LoadFromResource('ADD');
                          end;
            nbDelete : begin
                             Caption := 'Delete';
                             Glyph.LoadFromResource('DELETE');
                            end;

            nbPost   :begin
                           Caption := 'Post';
                            Glyph.LoadFromResource('POST');
                          end;
            nbCancel :begin
                            Caption := 'Remove';
                           Glyph.LoadFromResource('REMOVE');
                           end;
         end;

procedure TFrame1.DBEdit8DblClick(Sender: TObject);
begin
   WhichScreen := 'Delivery';
   with DataModule3 do
   begin
       if not CusLookup.prepared
       then
          CusLookup.prepare;
          CusLookup.ParamByName('Name').AsString := dbedit8.text+'%';
        try
          CusLookup.Open;
        except
          abort;
       end;
       form5.Show;
   end;
end;

procedure TFrame1.DBEdit8Exit(Sender: TObject);
var
    LookupName: string;
    LookupAddr1: string;
    LookupAddr2: string;
    LookupCustno: smallint;
    LookupCity: string;
    LookupPhone: string;
begin
 //need to do a customer lookup based on name
 With DataModule3 do
 begin
    //if (form2.Edit1.Text = cOldName) and
    //   (DispQueryCustno.Value <> 0) then
    //    abort;

    if not (DestQuery.State in [dsEdit, dsInsert]) then
        DestQuery.Edit;
    CusLookup.close;               {Deactivate the query as a precaution }
    if not CusLookup.prepared
    then
      CusLookup.prepare;           {Make sure the query is prepared}
      CusLookup.ParamByName('Name').AsString := dbedit8.text+'%';
      try
        CusLookup.Open;
    except
      abort;
    end;
    if CusLookup.Eof then
    begin
         CusLookup.Close;
         form5.Show;
    end
    else
    begin
        // Save First record
        LookupCustNo := CusLookup.Fields[0].AsInteger;
        LookupName  :=  CusLookup.Fields[1].Value;
        LookupAddr1 := CusLookup.Fields[2].Value;
        LookupAddr2 := CusLookup.Fields[3].Value;
        LookupCity := CusLookup.Fields[4].Value;
        LookupPhone := CusLookup.Fields[5].value;
        CusLookup.Next;
        if CusLookup.EOF then
        begin
            destquerycustno.value := LookupCustNo;
            dbedit8.text := LookupName;
            dbedit9.text := LookupAddr1;
        end;
        if not CusLookup.Eof then
        begin
            CusLookup.Close;
            form5.Show;
        end;
   end;
   //LogCall.Refresh;
   CusLookup.close;
   //ActiveControl := dbedit9;
 end;
end;

procedure TFrame1.DateTimePicker1Change(Sender: TObject);
begin
with DataModule3 do
    begin
       if not (DispQuery.State in [dsEdit, dsInsert]) then
           DestQuery.Edit;
       DestQuerydel_date.Value :=  DateTimePicker1.Date;
    end;
end;

procedure TFrame1.FrameEnter(Sender: TObject);
begin
with DataModule3 do
    begin
        DateTimePicker1.ShowCheckbox := true;
        DateTimePicker1.datetime := DestQuerydel_date.Value;
        if DestQuerydel_time_am.Value = true then
            ListBox1.Selected[0] := true
        else
            ListBox1.selected[1] := true;

    end;
end;

end.