Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm8 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

Implementation

uses Unit2;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

form8.close;

end;

end.

unit Unit9;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm9 = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

DBNavigator1: TDBNavigator;

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Label1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

Implementation

uses Unit5;

{$R *.dfm}

procedure TForm9.FormKeyPress(Sender: TObject; var Key: Char);

begin

case key of

#13:label1click(sender);

end;

end;

procedure TForm9.Label1Click(Sender: TObject);

begin

DataModule5.ADOQuery4.Last;

end;

end.