Выделение текста в Edit (Delphi)

[zaira001002]

Я не могу разобраться никак с выделением текста в Edit. Вот написала как понимала, но явно есть ошибкa. Подскажите где, что не так у меня.

for i := 1 to Length(Edit1.Text) do
    if Edit1.Text[i] in ['a'..'b'] then
    begin
      Edit1.SetSelText(Edit1.Text[i]);
      ShowMessage('Ошибка ввода!')
    end;

[newerow1989]

Edit1.SetFocus;//установить курсор
Edit1.SelStart:=2;//встать на 2-ю позицию
Edit1.SelLength:=3;//выделить 3 символа

Сойдет этот вариант?

В 1-м посте надо писать так:

Edit1.SetSelTextBuf(PChar(Edit1.Text[i]));

Тогда программа запустится!

[zaira001002]

Помимо этого нигде в Edit не нужно менять параметры? Просто вроде написала , как вы показали... У меня выдает ошибку в целом на неправильный ввод текста в Edit, но ничего не выделяет, как хотелось бы мне. Или я все же не так вас поняла

for i := 1 to Length(Edit1.Text) do
      if Edit1.Text[i] in ['a'..'b'] then
      begin
       // Edit1.SetSelTextBuf(PChar(Edit1.Text[i]));
        Edit1.SetFocus;
        Edit1.SelStart:=i;
        Edit1.SelLength:=1;
        ShowMessage('Ошибка ввода!');
      end;

[newerow1989]

for i := 1 to Length(Edit1.Text) do
      if Edit1.Text[i] in ['a'..'b'] then
      begin
       // Edit1.SetSelTextBuf(PChar(Edit1.Text[i]));
        Edit1.SetFocus;
        Edit1.SelStart:=i-1;//в delphi 6 выделяется нужный символ
        Edit1.SelLength:=1;
      //  ShowMessage('Ошибка ввода!');
      end;

А если кое-что изменить?

У меня все выделяет!

[zaira001002]

Я нашла свою ошибку)))) у меня от А до Б)))) Спасибо, за помощь, а так вы все верно указали

[newerow1989]

Пожалуйста!