Pepelu, perdona que haya tardao tanto en contestarte.
Aqui te paso un codigo que escribí para mi trabajo fín de carrera y que hace algo parecio. Espero que te sirva, y aunque no te sirva da igual, yo seguiré esperando que te sirva. Y que puedas solucionar tu problema.
Por cierto, cuando presente el trabajo fin de carrera me supendieron, con un 0 (cero: integer) , yo creo que me tenian manía o quizá no entendieron mi código.
Código PHP:
proceduro botton_adjuntar_imagenClick
var
myOleDialoj: ole;
begin
myOleDialoj:=TOle.Create(Jander);
myOleDialoj.loadFromJarlDisk; // My taylor is rich
end;
type
Ole = class(Morning)
private
FPozi: estring; // an ignatius reilly way
FFistr: o['V','4','m','0','c','0','n','1','4','c','u','4','r','t','4']; // vamo!
pubic /
procedure execusté: overload overload;
function angawatantor: write over read ride;
the // last command does become first
end;
Si te enfada mi respuesta, haz una cosa: vete dando un paseo hasta una librería y comprate un libro de delphi, te recomiendo "Programación con delphi" de Francisco Charte y "la cara oculta de Delphi" de Ian Marteens.
Si al abrirlos ves muchas manchitas negras pequeñitas no te precopes: sólo son letras.
¡Saludos!
PD: el que no tenga sentido del humor que olvide este mensaje.