obtener valor usable en delphi con un "onClick" HTML

tblDel.Lines.Add('<table border="1" style="display:inline-block;vertical-align:top;">');
del := qryPos.FieldByName('Del').AsString;
      repeat
      	tblDel.Lines.Add(Format('<thead><th colspan="%d">%s</th></thead>',
        	[qryPos.FieldByName('DelKolumner').AsInteger,
          qryPos.FieldByName('Del').AsString]));
	for row := 1 to qryPos.FieldByName('DelRader').AsInteger do
        begin
          tblDel.Lines.Add('<tr>');
          for col := 1 to qryPos.FieldByName('DelKolumner').AsInteger do
          begin
          	if PosExists(fRum, del, row, col) then
              tblDel.Lines.Add(Format('<td style="font-weight:%s;color:%s">%s</td>', [
                iff(
                  qryPos.FieldByName('AntalKistor').AsInteger +
                  qryPos.FieldByName('AntalUrnor').AsInteger +
                  qryPos.FieldByName('AntalOvriga').AsInteger > 0, 'bold', 'normal'),
                iff(
                  (qryPos.FieldByName('AntalKistor').AsInteger > qryPos.FieldByName('DelMaxKistor').AsInteger) or
                  (qryPos.FieldByName('AntalUrnor').AsInteger > qryPos.FieldByName('DelMaxUrnor').AsInteger), 'red', 'black'),
              '<button> ' + qryPos.FieldByName('DelTyp').AsString + '</button>']))
            else
              tblDel.Lines.Add('<td>-</td>');
          end;
          tblDel.Lines.Add('</tr>');
        end;
        qryPos.Next;
      until qryPos.Eof or (del <> qryPos.FieldByName('Del').AsString);
	    tblDel.Lines.Add('</table>');
    until qryPos.Eof or (fRum <> qryPos.FieldByName('Rum').AsString);