mascaras multiples con findfirst

[ecfisa]

quiero por ejemplo filtrar archivos de imagenes con cualquier extencion de imagenes

Eso es muy distindo de tu primera pregunta...

estoy tratando de seleccionar solo un tipo de archivos

Si querés enviarle una máscara, sería algo como:

Código Delphi [-]
procedure BuscarArchivos(Ruta, Mask: string);
var
  SR: TSearchRec;
  i: Integer;
  ts: TStrings;
begin
  ts:= TStringList.Create;
  try
    ts.Clear;
    ts.Delimiter:= ';';
    ts.DelimitedText:= Mask;
    for i:= 0 to ts.Count -1 do
    begin
      if FindFirst(Ruta + ts[i], faArchive, SR) = 0 then
      repeat
        Form1.Memo1.Lines.Add(SR.Name); 
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
  finally
    ts.Free;
  end;
end;

Para llamarlo así:

Código Delphi [-]
begin
  BuscarArchivos('C:\TEMP\', '*.zip;*.rar;*.pas;*.exe');
end;

Aviso: Es sólo un ejemplo de como implementar la busqueda con una máscara de multiples extensiones. Está probado y funciona; pero de
ninguna manera intenta reemplazar a tu código que como ya te dije, no he probado.

Un saludo.