procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
Aux : String;
begin
Aux := Trim(MaskEdit1.Text);
While Pos(' ', Aux) > 0 do
Delete(Aux,Pos(' ', Aux),1);
if Length(Aux)<10 then
begin
showmessage('No ha terminado de llenar ');
MaskEdit1.SetFocus;
end;
end;