unit ListKey;

interface

uses
	SwordAPI, SWKey, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
	TListKey = class(TSWKey)
	private
	protected

	public
		constructor Create(AOwner:TComponent); override;
	published
	end;


procedure Register;

implementation
constructor TListKey.Create(AOwner:TComponent);
begin
	inherited Create(AOwner);
     KeyType := 'ListKey';
end;


procedure Register;
begin
	RegisterComponents('Data Access', [TListKey]);
end;



end.