[Drozh]

Попробуй вот в процедуру обработки двойного щелчка добавить процедуру обработки одинарного, как-то так

Код:

procedure TForm1.PNGbutton1DblClick(Sender: TObject);
begin
 PNGbutton1Click(Self);
end;