Thumbnail browser based on TListView: DoubleClick event

I did this component.
Now I want this listview derivat to react on my mouseclicks and give me the possibilitie to
getselected file
select all files
=>

unit ThumbListView;

interface

uses
  SysUtils, Classes, Controls, Graphics, jpeg, ComCtrls;

type
  TThumbListView = class(TListView)
  private
    { Private declarations }
    sl:tstringlist;
    FSelFile:string;
    IL:TImagelist;
    procedure LoadAndConvert(B: TBitmap; FileName: string);
    procedure ListFiles(F: string);
    procedure ListView1DblClick(Sender: TObject);
    function getSelFile: String;
    procedure setSelFile(const Value: String);
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    { Public declarations }

  published
    { Published declarations }
    property OnClick;
    property OnDblClick;
    property SelectedFile:String  read getSelFile write setSelFile;
    procedure ListThumbItems(Dir:String);
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Hushpage', [TThumbListView]);
end;

{ tlistview1 }

constructor TThumbListView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  IL:=TImagelist.create(self);
  SL:=TStringlist.create;
  LargeImages:=IL;
  il.Width:=96;
  il.height:=96;
end;

destructor TThumbListView.Destroy;
begin

 // sl.free;
  //IL.Free;

  inherited;
end;
procedure TThumbListView.ListView1DblClick(Sender: TObject);
begin



end;
procedure TThumbListView.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin  inherited;
 if SelCount>0 then
FSelFile:=Selected.SubItems[0];
setSelFile(FSelFile);
end;
procedure TThumbListView.ListFiles(F: string);
var
    sr: TSearchRec;
    path, fullpath: string;
begin
    path :=includetrailingbackslash(f);
    fullpath := path + '*.*';
    if findfirst(fullpath, faAnyFile, sr) = 0 then
        repeat
            begin
                if (lowercase(extractfileext(path + '\' + sr.Name)) =
                '.jpg') or
                (lowercase(extractfileext(path + '\' + sr.Name)) =
                '.bmp')
                 then

                sl.add(path  + sr.Name);
            end;
        until FindNext(sr) <> 0;
    FindClose(sr);

end;

procedure TThumbListView.ListThumbItems(Dir: String);
var x: integer; s: string;
    b, k: string; BM, TBM: TBitmap; LI: TListitem;
begin

    bm := tbitmap.create;
    Tbm := tbitmap.create;
    sl := TStringlist.create;
    Items.BeginUpdate;
   
    try
    Clear;
    il.Clear;
    ListFiles(Dir);
        for x := 0 to sl.count - 1 do
        begin
           k:=sl.strings[x];
            if fileexists(k) then
            begin
                LoadAndConvert(bm, k);
                tbm.Width := 96;
                tbm.Height := 96;
                tbm.Canvas.StretchDraw(rect(0, 0, tbm.Width, tbm.height), bm);
                il.Add(Tbm, nil);
            //add to listview
                li := items.add;
                li.caption:=extractfilename(k);
                LI.SubItems.Add(k);
                LI.ImageIndex := x;
            end;
        end;
    finally
        sl.free;
        bm.free; tbm.free;
        Items.EndUpdate;
    end;
end;

procedure TThumbListView.LoadAndConvert(B: TBitmap; FileName: string);
var ex: string; J: TJPEGImage;
//load file and if jpge then convert to bitmap
begin
    ex := uppercase(extractfileext(filename));
    if ex = '.BMP' then
        B.LoadFromFile(filename) else
        if ex = '.JPG' then
        begin
            j := TJpegimage.Create;
            try
                j.LoadFromFile(filename);
                B.Assign(j);
            finally
                j.Free;
            end;
        end;

end;

function TThumbListView.getSelFile: String;
begin
result:=FselFile;
end;

procedure TThumbListView.setSelFile(const Value: String);
begin
fSelFile:=Value;
end;

end.