[creus]

Ya lo tengo solucionado compañeros!!!

var

stext1: string;

begin
stext1:='c:\Windows\ejercicio1.exr.txt'://Simplemente faltaba una extensión.
with Form1.Memo.Lines do

if (ComboBox.ItemIndex=0)then
begin
LoadFromFile(stext1);
end;
end;

Gracias