Ayuda con un memo

[roman]

Ok, ahí va otra solución si la versión de Delphi incluye la función ReverseStr de la unidad StrUtils:

function RemoveFileExt(FileName: String): String;
var
  Dot: Integer;

begin
  Result := ReverseString(FileName);
  Dot := Pos('.', Result);
  if Dot > 0 then Result := Copy(Result, Dot + 1, Length(Result));
  Result := ReverseString(Result);
end;

// Saludos