Графический редактор в Delphi Опции

[SeregaR1Val]

Добрый день! Необходимо написать графический редактор следующего вида:
Окно разбито на 2 части, в левой вводятся параметры фигуры, в правой она отрисовывается. Например: для начала задан прямоугольник высотой 50 и шириной 100. Указываем высоту - 25, на ней ширина 50 и фигура должна преобразоваться, приняв форму песочных часов и далее в этом духе. Надеюсь нормально объяснил...

Программу еще не начал, код писать не прошу, необходима консультация в том, какие элементы выбрать для разработки, TPaintBox или TImage и т.д. и как лучше всё это отрисовывать, может кто может дать совет?

[RussoTuristo]

Пишу функцию, чтобы в поля нельзя было вводить недопустимые значения, решил по уму сделать, чтобы сразу всё обрабатывалось, но с синтаксисом проблемки:

function Tf_main.Vvod_dannih:boolean;
var
i,j:integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      with Components[i] as TEdit do
      begin
        for j := 0 to Length(Components[i].text) do//Здесь ошибочка с обращением к свойству text
           if (Components[i].Text[j] not in['0'..'9', ',']) then //not in тоже не пашет, хотя вроде когда-то писал так
              begin
                 ShowMessage('В поле введено неправильное значение');
                 Result:=false;
                 Break;
              end else
              Result:=true;
      end;
end;

Как правильно можно обращаться к текстам всех Editов? Подскажите, пожалуйста.

Сообщение отредактировано: RussoTuristo - 4.05.2011 15:48