Importar txt para db separado por quot;;quot;

:( Bom dia !!!!!Estou com um problema na importação de texto para meu banco de dados! os campos do txt estão separados por ´;´ só que quando importor os dados eles são cortados pela metade!!!!tenho um exemplo de como estou fazendo...!!!! neste exemplo ele corta os dados pela metade, estive pesquisando e encotrei Tstring list.IndexOf mais não sei como usar !!!!! alguem poderia me ajudar...Com alguns exmplo...
segue abaixo o que tenho pronto...(este corta os dados)


-----------------------------------------------------------------------------------------------
procedure TformCg0102.Button1Click(Sender: TObject);
var
txt : TextFile;
entrada: string;
begin
assignfile(txt,´C:\temp\arquivo.txt´);
reset(txt);
while not eoln(txt) do
begin
readln(txt,entrada);
table4.insert;
table4numerocartao.value:=copy(entrada,01,10);
table4nomecliente.value:=copy(entrada,12,55);
table4.Post;
end;
closefile(txt);
end;
--------------------------------