Текст на Image

[artemavd]

А как переменную "s" объявить надо?

[raxp]

да, string/

[artemavd]

Не понял куда мой вопрос делся предыдущий...Один вопрос по той теме, где Вы, уважаемый raxp, выложили компонент для создания PDF. Как задать тип страницы? Альбомная или книжная. Не нашел в свойствах что-то.
Сократил код, до такого:

procedure TForm2.Button1Click(Sender: TObject);
var
 i:Integer;
 PDF:TPrintPDF;
begin

if SaveDialog1.Execute then
begin

{Create TPrintPDF VCL}
PDF:=TPrintPDF.Create(self);

{Set Page Size}
PDF.PageWidth:= 412;
PDF.PageHeight:= 592;

{Set Filename to save}
PDF.FileName := SaveDialog1.Filename;

{Start Printing...}
PDF.BeginDoc;

{Print Image}
PDF.Draw(10,10,Image1);

{End Printing}
PDF.EndDoc;

{FREE TPrintPDF VCL}
PDF.Free;
end;
end;

[raxp]

{Set Page Size} ...компонент не выкладывал, лишь скорректировал.

[artemavd]

У меня не получается. Мне нужно картинку из Image, которая в альбомном виде сохранить в пдф. РАзмеры страницы меняются, а изображение-то не помещается...

[raxp]

изображение должно быть в пикселах меньше чем формат листа.