Reduzir definição/tamanho (em Kb) de imagens

Como faço pra diminuir o tamanho da imagem que está sendo gravada no Timage, uso o comando Image1.Picture.SaveToFile(´c:\Imagem.bmp´), A imagem está ocupando 1,8 MB como faço pra reduzir ? não tem problemas se perder na definição, pode ser inclusive em preto e branco, só não pode ocupar muito espaço.

Valeu