tem te isso: function Tform1.separastring(linha, separador:string):string; begin result:=Copy(linha,Pos(separador,linha)+1,length(linha)); end; ou tente isso: function Tform1.separastring(linha, separador:string):string; begin result:=Copy(linha,0,Pos(separador,linha)-1)+Copy(linha,Pos(separador,linha)+1,length(linha)); end; A primeira função sepra a string 'linha' e responde a parte da string a direita do separador e a segunda função responde a string linha sem o sepatador. espero ter ajudado. falow...