Лидеры

Прежде чем рисовать на канве просто задайте размер результирующей битмапки. В Вашем случае: ... image2.Bitmap.SetSize(300, 300); image2.Bitmap.Canvas.BeginScene; ...

ModernListView GridLayout(в названии мог ошибиться) Либо на скроллБокс кидаешь нужные тебе компоненты.

В общем разобрался. Вдруг кому пригодится procedure TForm1.Button1Click(Sender: TObject); var buf: array[0..60] of Char; n: Integer; fmt: Word; H: THandle; P: PAnsiChar; S:UnicodeString; begin for n := 0 to Clipboard.FormatCount - 1 do begin fmt := Clipboard.Formats[n]; Clipboard.Open; if GetclipboardFormatName(fmt, buf, Pred(Sizeof(buf))) <> 0 then begin begin H := Clipboard.GetAsHandle(fmt); P := GlobalLock(H); S:=UnicodeString(P); Memo1.Lines.Add(P); GlobalUnlock(H); end; end; Clipboard.Close; end; end;