Ayuda con un memo

[roman]

Función para quitar la extensión de un archivo

function SoloNombre(Archivo: String): String;
var
  Punto: Integer;

begin
  Punto := Pos('.', Archivo);
  if Punto > 0 then
    Result := Copy(Archivo, 1, Punto - 1)
  else
    Result := Archivo;
end;

Si el archivo no tiene extensión te regresará el mismo nombre.

La usarías así:

memo1.lines.add(SoloNombre(searchrec.name));

Nota. La función fallará para archivos con nombres raros que tengan más de un punto.

// Saludos