procedure TForm1.FormCreate(Sender: TObject);

var jpeg : TJPEGImage;

begin

  //jpeg.Create;

  WindowState := wsMaximized;

  Image1.Align := alClient;

  BorderStyle := bsNone;

  jpeg.LoadFromFile('C:\Documents and Settings\Администратор\Мои документы\Мои рисунки\x_030ddb01.jpg');

  Image1.Picture.Bitmap.Assign(jpeg);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Image1.Canvas.TextOut(100,100, TimeToStr(Time));

end;