Zero lines of Delphi code, just one HtPanel: (artefacts on video are from GIF compression)
HTML:
<style>
body {padding: 20px}
td {height: 20px; resize: horizontal}
.gauge1 {background: linear-gradient(to bottom, steelblue, blue);}
.gauge2 {background: linear-gradient(to bottom, lightgreen, green);}
</style>
<table width="800">
<tr>
<td width="50%">
<table width="100%">
<tr>
<td class="gauge1" width="70%"></td>
<td class="gauge2"></td>
</tr>
</table>
</td>
<td>
<table width="100%">
<tr>
<td class="gauge1" width="70%"></td>
<td class="gauge2"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%">
<tr>
<td class="gauge1" width="70%"></td>
<td class="gauge2"></td>
</tr>
</table>
</td>
<td>
<table width="100%">
<tr>
<td class="gauge1" width="70%"></td>
<td class="gauge2"></td>
</tr>
</table>
</td>
</tr>
</table>