Ayuda Problema con random

[zelt@]

Bueno el problema que tengo con radon es que quiero generar numeros aleatorios pero que sumados me den cierta cantidad por ejemplo que los 2 primeros digitos me sumen 10 despues los otros 2 sumen 12 y yo lo programe asi

var char1,char2,char3,char4:integer;
begin
randomize();
char1 := random (9)+1;
char2:=10-char1;
char3:= random(9)+3;
char4:=12-char19;

Los primeros 2 digitos estoy diciendo que me de como resultado 10 y ese sí me da lo que pido de manera aleatoria pero el char3 y char4 al sumarlo me da 12 pero despues de generar muchas veces me manda por ejemplo 3 111 o 102 para que me entiendan pongo unos digitos que genera

5584
37102
3739
3757
9139
91111

Como se pueden fijar me genera numeros de mas y no cumplen que la suma del digito 3+4 sea igual a 12 en varios generados sí pero en los demas ya no
mi pregunta es como puedo evitar que me genere esos digitos de mas y que los digitos que me mande cumplan con lo que pido en este caso que sumen 12?
gracias de ante mano

[[Crandel]]

el código que pones esta relativamente bien. Me parece que debes algun problema cuando lo conviertes a caracteres o algo asi.

Código Delphi [-]
num1 := Random (9)+1;
num2 := 10-num1;
num3 := Random(11)+1;  // aca sería 11 no 9
num4 := 12-num3;

[zelt@]

ya modifique el error que tenia pero no se resuelve pero si fuera de la conversion los otros 2 primeros digitos tambien saldrian mal no crees?