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

[SeregaR1Val]

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

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

[RussoTuristo]

Добрый день! Подскажите, пожалуйста, а можно ли в текстовый файл вместе с таблицами и Эдитами вывести графики из TChart и рисунок? Есть такая необходимость, про THcart что-то нашел в интернете, попытался наваять, но вместо графиков выводятся названия TChartов, а изображение вообще вызывает сомнения -можно ли ехо сохранить в текстовый файл или только в bmp/jpeg?

procedure Tf_main.N7Click(Sender: TObject);
var
  f : TextFile;
  j, R: Integer;
  BM: TBitmap;
begin
if SaveDialog1.Execute then
  begin
  AssignFile(f, SaveDialog1.FileName);
  Rewrite(f);

  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
      with Components[j] as TEdit do
      begin // Saving Edits
        WriteLn(f, 'TEdit' + #13#10 + Name + #13#10 + Text);
      end
    else
      if Components[j] is TStringGrid then
        with Components[j] as TStringGrid do
        begin // Saving Grigs
          WriteLn(f, 'TGrid' + #13#10 + Name + #13#10 + IntToStr(RowCount));
          for R := 0 to RowCount - 1 do
            WriteLn(f, StringReplace(Rows[R].Text, #13#10, #9, [rfReplaceAll]));
        end
    else
      if Components[j] is TChart then
        with Components[j] as TChart do
        begin // Saving Grigs
          BM:=TBitmap.Create;
          try
             BM.PixelFormat:=pf24bit;
             BM.Width:=Chart1.ClientWidth;
             BM.Height:=Chart1.ClientHeight;
             Chart1.PrintPartialCanvas(bm.canvas, Chart1.ClientRect);
             BM.SaveToFile('f');
         finally
             BM.Free;
        end;
        end;
  CloseFile(f);
  end;
end;