fo := 'insert into error ( error_id , error , Cause , Action ) values ( ^#^%s^#^ , ^#^%s^#^ , ^#^%s^#^ , ^#^%s^#^ );';
for i := 0 to ts.Count - 1  do
         begin
         if copy( ts.Strings[i] , 1 , 4 ) = 'ORA-' then
               begin
               er := copy(ts.Strings[i],1,9);
               v1 := copy(ts.Strings[i],12,length(ts.Strings[i]));
               v2 := copy(ts.Strings[i+1],8,length(ts.Strings[i+1]));
               v3 := copy(ts.Strings[i+2],9,length(ts.Strings[i+2]));
               ts1.Add( format( fo , [ er , v1 , v2 , v3] ) ) ;
               end;
         end;