Fórum calculos em dois edits #456032

Boa tarde pessoal! estou desenvolvendo um sisteminha de calculos de pontuação de ficha de militares. Nesse sistema tem pontos positivos e negativos e a soma e subtração dos campos (edits) é feita, não por button e sim pela tecla enter e tab, tipo assim vou apertando tab ou enter e soma via saindo edtresultadototal.

pontos positivo:

if (Key = #13)then
begin
if(Edit1.Text <> '\')then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
soma:= StrToFloat(Edit1.Text);
EdtSubTotalSoma.Text:=FloatToStr(soma);
EdtTotal.Text :=FloatToStr(soma);
end
else
MessageDlg('Obrigatório Preenchimento\', mtWarning,
[mbOk], 0);
end

e
pontos negativos:

if (Key = #13)then
begin
if(Edit12.Text <> '\')then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
soma:= soma - StrToFloat(Edit12.Text);

EdtTotal.Text :=FloatToStr(soma);

end
else
MessageDlg('Obrigatório Preenchimento\', mtWarning,
[mbOk], 0);
end


até aí tudo bem, só que estou precisando fazer uns calculos e não estou conseguindo que é quando eu digitar um numero em um edit ele tem que valer outro em outro edit por ex:

se um militar tiver um curso de 100 horas e eu digitar 100 num edit tem que aparecer 1,0 no outro edit de cursos, pois a cada 100 horas aula vale um ponto, vc entederam? alguém pode me ajudar nessa?