Achar primeiro caractere antes da ","(vírgula)

[[VAZA] 0]

Pessoa, como faço para achar o primeiro caractere antes da ","(vírgula)

por exemplo:

20, 1, 5, 15, 19

dai queria saber se existe alguma função que pegasse o primeiro caractere antes da vírgula, de uma variável String que nesse caso, pegaria o 20

flw

[[VAZA] 0]

aew pessoal..ja achei..segue abaixo:

 

Function RemoveInvalid(what, where: string): string;

// elimina a parte da string a partir dos caracteres inválidos especificados

var

tstr: string;

begin

tstr := where;

while pos(what, tstr)>0 do

tstr := copy(tstr,1,pos(what,tstr)-1) +

copy(tstr,pos(what,tstr)+length(tstr),length(tstr));

Result := tstr;

end;