Hola, tambíen sería bueno que aumentes la función Trim al recuperar el contenido de tus edit, porque si ponen un espacio con el Length te va a devolver 1, no 0 y así sucesivamente con mas espacios.
Código Delphi
[-]
.............
S1 := Trim(edOrigen.Text);
S2 := Trim(edDestino.Text);
................
Saluditos