создать timage определенных размеров

[varelik]

Здравствуйте.
Подскажите, как создать timage с bitmapom определенных размеров?
т.е. из кода:

procedure TForm1.xxx1Click(Sender: TObject);
var New1: TControl;
begin
TypeClass:=TControlClass(timage);
New1:=TypeClass.Create(self);
timage(new1).Picture.LoadFromFile('C:\xxx.bmp');
timage(New1).Top:=0;
timage(New1).Left:=0;
timage(new1).Width:=strtoint(form2.Edit1.Text);
timage(new1).Height:= strtoint(form2.Edit2.Text);
end;

нада избавиться от: timage(new1).Picture.LoadFromFile(' C:\xxx.bmp');
не хочу постоянно bitmap с С:\ диска грузить- надо чтоб он посто создавался (НО- С ОПРЕДЕЛЕННЫМИ РАЗМЕРАМИ !!!).
Сам bitmap представляет просто белый лист с размерами гдето 500 на 500.

[Stilet]

Ну во-прервых ты всегда можешь делать загрузку битмапа только один раз при запуске программы.
Во-вторых: Если этот битмап так сказать "табула раса", то зачем он тебе нужен?

[psycho-coder]

  Image1.Picture.Bitmap.Width
  Image1.Picture.Bitmap.Height

[varelik]

Спасибо
Image1.Picture.Bitmap.Width
Image1.Picture.Bitmap.Height
как раз, что надо.
А смысл всего- делаю граф редактор, где "табула раса"- белый холст для рисования, размеры которого программно можно менять.

[Stilet]

делаю граф редактор

вообще-то для редакторов приспособлен компонент TPaintBox.

[varelik]

Да, про TPaintBox слышал, но для моей задачи это особой роли не играло. Я уже давно всю прогу реализовал на timage: тексты, картинки, и т.д. Собственно, целью было их динамическое создание на холсте (который тоже динамический timage). А сейчас спустя 3 месяца просто решил отладить уже готовое и разобраться в написанном.

[DeDoK]

а чем свойство Stretсh не устраивало?