procedure TUFiskFoForm.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
    StatusBar.Canvas.Font.Color := clRed;
    StatusBar.Canvas.TextOut(Rect.Left, Rect.Top,'CTRL_SPACE-ŠTAMPANJE  F5-PRESEK STANJA  F6-PRESEK STANJA(DODATNA)  F7-DNEVNI  IZVEŠTAJ  F8-STANJE  F9-BARKOD')
end;