.: Erro ao converter String para Integer, ajuda por favor .:

Note que voce declarou a variavel PegaValor como String, e depois esta tentando passar um valor tipo inteiro pra ela.
Ou voce declara a variavel pegavalor como Integer ou Float, ou voce não precisa usar a função StrtoInt, basta atribuir diretamente:

pegavalor := dbedit5.text;

--------------------------------------------------------------------------------------
Seu Código
-------------------------------------------------------------------------------------
var
pegacodigo : string;
pegavalor : string; <----------Variavel String
total : integer;
begin
pegacodigo := dbedit2.text;
edit2.text := pegacodigo;
table2.findnearest([edit2.Text]);
pegavalor := dbedit5.text;
pegavalor := StrtoInt (dbedit5.Text); ***** <--------Atribuição errada
total := pegavalor + pegavalor;
edit4.text := IntToStr (total);

*** é a linha que está acusando o erro :

Incompatible types : ´integer´ And ´string´

Aonde estou errando nesse código, se alguém puder me ajudar..

Voce está tentando jogar um valor inteiro dentro de uma variavel string.
Voce já definiu Pegavalor como sendo string.

Não tente pegar valores de um dbEdit, puxe diretamente do campo da tabela, testando se os valores não estão NULL, e para o caso de inteiros, se tem outros caracteres como ponto ou vírgula.

Marconi