Como definir a largura e a altura de um TBitmap do Delphi usando as propriedades Width e Height

// não se esqueça de adicionar 'JPEG' no uses
procedure TForm4.Button1Click(Sender: TObject);
var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  // vamos criar um novo objeto TJpegImage
  jpg := TJpegImage.Create;

  // agora vamos carregar a imagem JPG desejada
  jpg.LoadFromFile('C:\estudos_java\lago.jpg');

  // agora criamos o bitmap
  bmp := TBitmap.Create;
  // e atribuimos o JPG ao Bitmap
  bmp.Assign(jpg);

  // vamos definir uma largura e altura para
  // o bitmap
  bmp.Width := 200; // largura
  bmp.Height := 50; // altura

  // finalmente desenhamos o bitmap no form
  Form4.Canvas.Draw(0, 0, bmp);

  // e limpamos o JPG e o Bitmap
  bmp.free;
  jpg.free;
end;