formato a una string

[cmm07]

Gracias, muxas gracias de verdad gracias, si me funciono de maravilla ¿como te puedo agradecer? jjejee

*SALU2 A TODOS LOS DEL CLUBDELPHI

Solo un detallito, cuando cambio :
de esto:

Código Delphi [-]
function Separar(Str: String): String;
begin
Result:= EmptyStr;
while Length(Str) > 3 then
begin
Result:= Result + Copy(Str,1,3) + '-';
Delete(Str,1,3);
end;
Result:= Result + Str;
end;

a esto

Código Delphi [-]
function Separar(Str: String): String;
begin
Result:= EmptyStr;
while Length(Str) > 3 then
begin
Result:= Result + Copy(Str,1,6) + '-';
Delete(Str,1,6);
end;
Result:= Result + Str;
end;

el resultado es:
214KGD-HJHENB-123BAD-
coloca una "-" al final como puedo mejorar esto...

GRACIAS DE TODAS FORMAS...