Pelo que entendi, você quer preencher o StringGrid com resultados de números aplicados a algumas fórmulas. Vou postar o que eu consegui fazer. procedure TForm1.StringGrid1DblClick(Sender: TObject); var numero:Double;//Para receber um número begin numero := StrToInt(InputBox('PREENCHER GRID','DIGITE NUMERO','')); //Pede o usuário para digitar um número, e guarda-o na variável "número" StringGrid1.Cells[1,1]:= FloatToStr(numero*2); //Preenche a primeira célula da primeira coluna StringGrid1.Cells[1,2]:= FloatToStr(numero*3); //Preenche a segunda célula da primeira coluna StringGrid1.Cells[1,3]:= FloatToStr(numero*2/2); //Preenche a terceira célula da primeira coluna StringGrid1.Cells[1,4]:= FloatToStr(numero/2*5); //Preenche a quarta célula da primeira coluna StringGrid1.Cells[2,1]:= FloatToStr(numero/5*5);//Preenche a primeira célula da segunda coluna StringGrid1.Cells[2,2]:= FloatToStr(numero/2*7);//Preenche a segunda célula da segunda coluna //E por aí vai... end; end. Nas linhas de comando, de StringGrid1.Cells[1,1] até StringGrid1.Cells[1,4] o programa preenche a primeira coluna do Grid aplicando o valor de número às fórmulas que eu usei. Você pode mudar a(s) fórmula(s). No exemplo, eu usei várias diferentes (numero*2,numero*3,numero*2/2,numero/2*5). Caso você for usar apenas uma fórmula para cada coluna, o código pode ser melhorado. Qualquer coisa me manda uma mensagem privada com seu e-mail que eu te ajudo melhor.