Delphi - Obtener string dentro de una string

buenas tardes, utiliza delphi 6
necesito lo siguiente, alguna funcion de delphi q me busque en una string un caracter como una coma, y me de la string q se encuentra antes de la coma.
ejemplo

tengo mi string ' la casa, de la mama, de mi vecina'

deseo encontrar la primer coma y obtener

la casa

luego buscar la 2da coma y cobtener

de la mama

luego buscar la 3er coma y cobtener

de mi vecina

es como leer una hilera y obtener de ella por separaciones de coma los valores q estan
entre las comas.

Es lo q necesito. no crean q tiene algo q ver mi vecina en esto jeje ojala pero no jajaja.

Saludos y gracias por la ayuda.

Function Buscar( S : String) : Array of String;
var
Arreglo : Array of String;
I, J : Integer;
begin
I := 1; J := 0;
SetLength(Arreglo,0);
while I <> 0 do
begin
I := Ansipos(',',S);
if I <> 0 then
begin
Inc(J);
SetLength(Arreglo,J);
Arreglo[J-1] := Copy(S,1,I-1);
S := Copy(S,I+1,Length(S));
end;
end;
Result := Arreglo;
end;

Saludos,

Ery