unit ayulinea;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TFormaAyuda = class(TForm)
    Label1: TLabel;
    Eti: TLabel;
    Eje: TEdit;
    Tip: TLabel;
    Tam: TLabel;
    Shape1: TShape;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure EjeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaAyuda: TFormaAyuda;

procedure muestraayuda(etiqueta,ejemplo,tipo,tamano:string);
implementation

{$R *.DFM}

procedure muestraayuda(etiqueta,ejemplo,tipo,tamano:string);
begin
with FormaAyuda do
begin
Eti.Caption:=Etiqueta;
Eje.Text:=ejemplo;
Tip.Caption:='Tipo     '+tipo;
Tam.Caption:='Tamaņo   '+Tamano;
Show;
end;

end;
procedure TFormaAyuda.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Close;
end;

procedure TFormaAyuda.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Close;
end;

procedure TFormaAyuda.Shape1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Close;
end;

procedure TFormaAyuda.EjeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Close;
end;

end.