RISOLTO
ho semplicemente scitto nell'evento OnPrepare Canvas della StrinGrid il seguente codice: //
if (form1.StringGrid15.Cells[2,1]<>'') and (strtofloat(form1.StringGrid15.Cells[2,1]) > (0.6*poli[1].fck)) then
begin
if (ACol=2) and (ARow=1) then
begin
StringGrid15.Canvas.Font.Color := clRed;
StringGrid15.Canvas.Font.Style := [fsBold];
end;
end;
if (form1.StringGrid15.Cells[2,1]<>'') and (strtofloat(form1.StringGrid15.Cells[2,1]) < (0.6*poli[1].fck)) then
begin
if (ACol=2) and (ARow=1)then
begin
StringGrid15.Canvas.Font.Color := clBlack;
StringGrid15.Canvas.Font.Style := [];
end;
end;