Ejercicio con Posiciones de dígitos

[[BlueSteel]]

tambien podrias utilizar el siguiente ejemplo

debes tener 2 componentes...

1 Edit -> llamado en este caso vVar
1 Boton ->

en el evento del boton puedes poner este codigo..

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   vSuma : Integer;
begin
     vSuma := StrToInt(vVar.Text[1])+StrToInt(vVar.Text[2])+StrToInt(vVar.Text[3])+StrToInt(vVar.Text[4]);
     if vSuma = StrToInt(vVar.Text[5]) Then
        ShowMessage('Correcto')
     Else
        ShowMessage('Incorrecto');
end;

espero te sirva.. ahh. y tambien es algo sencillo..... lo que hace es trabajar el texto como un array