Delphi - Ayuda urgente bloc de notas

Hola amigos necesito ayuda urgente, que sucede estoy haciendo un block de notas, he utilizado para realizar la operacion de abrir y guardar un actionlist, en tiempo de ejecucion me sale la respectiva ventana Abrir, pero no se visualiza el contenido del archivo abierto en el RichEdit, los mismo sucede con la opcion guardar, a ver si me explico las acciones se llevan a cabo, por lo menos aparentemente, pero no hacen la funcion que debieran....me imagino que me falte algun parametro por especificar, pero no se cual.Les agradecere cualquier ayuda que puedan darme.Gracsias de atemano...
Saludos a todos..

PRUEBA CON ESTO...

// (((ABRE UN ARCHIVO DE TEXTO )))

var xArchivo:string;
begin

Opendialog1.filter:='Archivos de Texto (*.txt)[*.txt]All files (*.*)[*.*';
if OpenDialog1.Execute then
begin
Richedit1.clear;
xArchivo:=Opendialog1.filename;
Richedit1.lines.LoadFromFile(xArchivo);
end;
end;
//NOTA: Utiliza un componente llamado (Opendialog) que esta en la ficha (Dialog)

// (((GUARDA UN ARCHIVO DE TEXTO)))

var xArchivo:string;
begin
showmessage('!Evita sobreescribir archivos ya existentes!');
SaveDialog1.Title:='Guardando archivo';
SaveDialog1.Filename:='Busca de Cristo';
SaveDialog1.Filter:='Archivos de Texto (*.txt)[*.txt]Todos los Archivos (*.*)[*.*';
if SaveDialog1.Execute then
try
begin
xArchivo:=savedialog1.filename;
richedit1.Lines.SaveToFile(xArchivo);
Richedit1.Modified:=false;
end;
except on exception do
showmessage('!Imposible Guardar los Datos' );
end;
end;