Comprobación de MaskEdit

[lKinGl]

Muchas gracias caro es exactamente lo que necesito, pero ahora me dejaste con el código pero aun mas enredado por que no logro comprenderlo, podrias explicarmelo detalladamente para asimilarlo mejor?

gracias por sus respuestas

[*Caro*]

Empezado por lKinGl

..........comprenderlo, podrias explicarmelo detalladamente para asimilarlo mejor?

Te explico:

Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
  Aux : String;
begin
 //Trim elimina los espacios de los costados
 Aux := Trim(MaskEdit1.Text); 
 
 //Recorremos hasta terminar de quitar los espacios 
 //Pos nos da la posición donde se encuentra el primer espacio
 While Pos(' ', Aux) > 0 do
  //Delete nos borrar de Aux el espacio de la posición donde ha encontrado Pos
   Delete(Aux,Pos(' ', Aux),1);
 
 //Preguntamos por su longitud, si es menor a 10 es porque por ahí hay algún espacio y ha sido eliminado
 if Length(Aux)<10 then
  begin
   showmessage('No ha terminado de llenar ');
   MaskEdit1.SetFocus;
  end;
end;

Saluditos

[lKinGl]

excelente caro de verdad muchas gracias por la explicación... entendí el proceso perfectamente