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

[SeregaR1Val]

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

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

[IUnknown]

С чего бы? Ты хочешь оставить фокус в том Edit-е, который некорректно заполнен, что-ли? Вот так попробуй:

function Tf_main.Vvod_dannih : boolean;
var
   i, j: integer;
   Edit : TEdit;
begin
   Result := False;
   for i := 0 to ComponentCount - 1 do
      if Components[i] is TEdit then
      begin
         Edit := Components[i] as TEdit;
         for j := 1 to Length(Edit.Text) do
            if not (Edit.Text[j] in['0'..'9', ',']) then
            begin
               Edit.SelStart := 1; Edit.SelLength := Length(Edit.Text);
               Edit.SetFocus;
               ShowMessage('В поле введено неправильное значение'); Exit;
            end;
      end;
   Result := True;
end;

У тебя было 2 трудноуловимых ошибки, кстати... Посмотри внимательно, и поймешь, какие. И в чем опасность.