Foros Club Delphi - Búsqueda de strings

Alguien puede darme una ayuda en una función que busque un determinado texto dentro de un memo y algo más.

Mi intención:

Es la de un archivo html, recorrermelo, y encontrar '.gif', y cuando lo encuentre tirar hacia atras y guardarme 'foto.gif'.

La manera más efectiva y rápida.

Lo he intentado con leftstr de todo el memo y luego con el pos, pero recorrerme todo el memo con leftstr lo veo una locura.

Finalidad:

Es conseguir todas las rutas de las fotos de un html.(Guiandome por 'gif','jpg'.

es decir

<html>
<head>
</head>
<body>
 Here is the image: 
<img src="sm101yellow.jpg" />
</body>
</html>

de aqui conseguir esto = sm101yellow.jpg;

Espero me puedan ayudar
Gracias