Función para quitar la extensión de un archivo
Código:
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