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