Como passar o clipboard para uma variavel?

procedure TForm1.Button2Click(Sender: TObject);
begin
     if Clipboard.HasFormat(CF_BITMAP) then
     begin
          // Faz algo com a imagem e
          Image1.Picture.Assign(ClipBoard);
     end;

     if Clipboard.HasFormat(CF_TEXT) then
        Memo1.Text := Clipboard.AsText;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     // devolve para o clipboard
     Clipboard.Assign(Image1.Picture);
     Clipboard.AsText := Memo1.Text;
end;