[lmikle]

Используй StringReplace или такой код:

Код:

function ReplaceDots(AStr : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(AStr) Do
    If AStr[i] = '.' Then Result := Result + '...' Else Result := Result + AStr[i];
end;