Copiar imagem de qualquer pasta e Colar no Timage tem como?

A propriedade Picture do TImage possui o metodo [b:67a9728264]LoadFromClipboardFormat[/b:67a9728264] só nunca ultilizei o mesmo mais dê uma olhada no help do delphi a respeito... :wink:

Dei uma pesquisa no help do Delphi 2005 e tem mesmo(LoadFromClipboardFormat) só que não entendo como colocar na prática.

isto foi copiado do help do delphi
The following code draws a bitmap image from the Clipboard when a button is pressed.

procedure TForm1.Button1Click(Sender: TObject);

var
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Canvas.draw(0,0,Bitmap);
finally
Bitmap.free;
end;
end;

isto foi copiado do help do delphi
The following code draws a bitmap image from the Clipboard when a button is pressed.

procedure TForm1.Button1Click(Sender: TObject);

var
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Canvas.draw(0,0,Bitmap);
finally
Bitmap.free;
end;
end;

Mais uma vez muito Obrigado!

Mais uma vez muito Obrigado![/quote:ed725f47cd]

Não consegui colar a imagem no Timage(só dá certo quando abro o paint e seleciono toda a imagem e copio, ai sim consigo colar), mas como copiar a imagem e colar direto Timage sem ter que abri-la em outro programa?
Coloquei na cláusula uses:Clipbrd;
e tambem coloquei o código da seguinte forma:
var
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
Image1.Picture.Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Canvas.draw(0,0,Bitmap);
finally
Bitmap.free;
end;