Please help newbeeeeee...

hi!

you should wirte the code you want to repeat in the repeat ... not before or after it

this should work

Count := 0;
IF Customer.FIND('-') THEN
  REPEAT
    MESSAGE('Customer %1 is %2','Name',Customer.Name);
    Count:=Count+1;
  UNTIL Customer.NEXT = 0;

The Count or any syntax should be between the repeat and the until otherwise you will only get the first record in the table.
If your purpose is to count all the records in the customer table than "Customer.Count" should be enough.
Also if you wish to modify or delete some records you should really think about using setfilter or setrange before the find syntax.
That way the processing goes faster.

Don't put the count within the repeat. If you have 10,000 customers in your record set, you will count 10,000 times. Better to put in an extra line before the REPEAT, like this:

Count := 0;
IF Customer.FIND('-') THEN BEGIN
  Count := Customer.COUNT;
  REPEAT
    MESSAGE('Customer %1 is %2','Name',Customer.Name);
  UNTIL  Customer.NEXT=0;
END;

Use COUNTAPPROX if you don't want an exact number. If you want to know exactly how many records are in your filter, then do NOT use COUNTAPPROX, but use COUNT. The other one is meant to get a quick estimate of the number of records in your filter, and supposedly is easier on network bandwidth. But let's face it, if I want to know how many records, I have a good reason to want to know it, and I want an exact count. I never use COUNTAPPROX.