Программное создание ToolButton

[Angel86rus]

Всем бодрова времени суток.
хочу создать панель быстрого запуска через TooBar но застрял на создании кнопак. при добавлении любого файла, во всех созданых кнопках открывается последний добавленный файл. что не так.

вот код

opnDl: TOpenDialog;
s: PChar;
dav: string;
begin
opnDl:=TOpenDialog.Create(Self);
if opnDl.Execute then
  dav:= PChar(opnDl.FileName);
 Tbtn:=TToolButton.Create(Self);
 Tbtn.Parent:=tlb1;
 Tbtn.ShowHint:=True;
 Tbtn.Hint:=dav;
 Tbtn.OnClick:= TbtnClick;
end;

procedure TForm1.TbtnClick(sender: TObject);
var
s: string;
scz: PChar;
begin
s:=Tbtn.Hint;
scz:=PChar(s);
ShellExecute(Form1.Handle,nil,scz,nil,nil, SW_RESTORE);
end;

[mihali4]

s:=(Sender as TToolButton).Hint;

[Angel86rus]

спс. все замечательно работает, удалить кнопку в toolbar`e btn.free, а как удалять выбранную кнопу..?

[Marsel737]

(Sender as TToolButton).Free;

[Angel86rus]

(Sender as TToolButton).free;

выходит ошибка при удалении , Invalid class typecast ...?