Abrir archivos en TMemo o equivalente

[Delar]

A ver, no es lo que el titulo dice exactamente, pues eso si que lo se hacer. Lo que necesito saber, es, como abrir por ejemplo un .jpg en un TMemo (como texto, no como imagen) y que pulsando un boton el contenido de ese TMemo se extraiga en el nombre deseado. Aquí dejo el codigo que tengo, y que abriendo un .exe solo lee las 3 primeras letras.

Código Delphi [-]
OpenD1.Execute;
Memo1.Lines.LoadFromFile(OpenD1.FileName);

Y al pulsar el botón:

Código Delphi [-]
SaveD1.Execute;
Memo1.Lines.SaveToFile(SaveD1.FileName);

Saludos y gracias de antemano!