Лабораторная работа 8. Упражнение 19

Пример программы

uses

// ...

LCLProc;

//...

procedure TForm1.Button1Click(Sender: TObject);

var

    c_del, s : string;

    i        : Byte;

begin

    s     := Edit1.Text; // Исходный текст.

    c_del := Edit3.Text; // Удаляемая буква.

    while UTF8Pos(c_del, s) <> 0 do begin

// Пока в s осталась хотя бы одна искомая буква...

// ... определяем её номер и удаляем.

        i := UTF8Pos(c_del, s);

        UTF8Delete(s, i, 1);

    end;

    Edit2.Text := s;

end;