Ayuda con un memo

[marcoszorrilla]

Yo puse el mensaje a las 7h45, nada más llegar al puesto de trabajo y respondí en orden a resolver el problema ya dentro del Memo.

Pero, la solución desde fuera se hubiera parecido mucho a la que dí.

Por lo tanto, siempre me gusta hacer hacer una prueba con las propuestas que se dan, y esto fué lo que salio.

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:= ChangeFileExt('MiArchivo.bmp','');
ShowMessage(s);
ShowMessage('Merci Delphi.com');
end;

Un Saludo.