Fórum Duvidas StringGrid #559042

procedure TfrmMedia.btnEntrarClick(Sender: TObject);
var
  num: Real;
  Cont_Coluna: Cardinal;
begin
  if (btnIncluir.Enabled = False) then
      begin
       if (edtVlr.Text <> '') then
         begin
          begin
            num := StrToFloat(edtVlr.Text);
             with StringGrid1 do
             begin
                  Cont_Coluna := Row;


               Cells[0, Cont_Coluna] := IntToStr(Cont_Coluna);
               Cells[1, Cont_Coluna] := FloatToStr(num);

                RowCount := RowCount+1;
                Row := RowCount -1;

             end;

             edtVlr.SetFocus;
          end;
         end
         else
         edtVlr.SetFocus;
      end;
end;