unit FormGoToAddress;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFormGoToAddress }

  TFormGoToAddress = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    EditAddress: TEdit;
    Label1: TLabel;
    procedure EditAddressKeyPress(Sender: TObject; var Key: char);
  end;


implementation

{$R *.lfm}

{ TFormGoToAddress }

procedure TFormGoToAddress.EditAddressKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then ButtonOk.Click;
end;

end.