Занесение картинки в переменную

[einstein22]

В общем я там уже дальше могу и сам посмотреть. Только одна просьба: я вот читаю на форумах разные вещи и встречаются непонятные мне функции. Хотелось бы почитать о них, а я скачал уже не один десяток различных справочников и самоучителей, а не в одном нету. Скрины большие получаются, так я хочу сделать их меньшего размера и качества, а нигде не могу найти описания функций BitBlt, StretchBlt и многих других интересный вещей! Никто не подскажет ссылку на справочник нормальный, а не только с основами?

[BDA]

Насчет функций - легче искать в интернете
Сжатие с помощью преобразования в Jpeg:

uses jpeg;
...
var
  bitmap: tbitmap;
begin
  with TJpegImage.Create do
  begin
    bitmap := tbitmap.Create;
    bitmap.Width := Screen.Width;
    bitmap.Height := Screen.Height;
    BitBlt(bitmap.Canvas.Handle, 0, 0, bitmap.Width, bitmap.Height,
      GetDC(GetDesktopWindow), 0, 0, SRCCOPY);
    Assign(bitmap);
    CompressionQuality := form4.scrollbar1.position;
    Compress;
    savetostream(PathToSave);
    bitmap.Free;
    free;
  end;
end;
...
var
  multi: TIdMultiPartFormDataStream;
  list: tstringlist;
  ts: tmemorystream;
begin
  ts := tmemorystream.Create;
  list := tstringlist.Create;
  ScreenShot(ts);

  multi := TIdMultiPartFormDataStream.Create;
  multi.AddFormField('upload', 'yes');
  ts.position := 0;
  multi.AddObject('F', 'image/jpeg', ts, '123.jpg');
  list.Text := IdHTTP1.Post('http://www.radikal.ru/action.aspx', multi);

  list.SaveToFile('1.html');
  ts.SaveToFile('1.jpg');
  multi.Free;
  list.Free;
  ts.Free;
end;

На форме лежит scrollbox, который отвечает за качество снимка.