bekio wrote:
My mistake,
just use:
String:=DELSTR(vString,1,PosCode);
instead of
String:=DELSTR(vString,PosCode,1);

hi bekio
now it works
thanks a lot for your help
the final code is like this
SFile.TEXTMODE(TRUE);
SFile.WRITEMODE(FALSE);
SFile.OPEN('D:\TestImport\Test.txt');
REPEAT
SFile.READ(vString);
PosCode:=STRPOS(vString,';');
TestImport.No := FORMAT(COPYSTR(vString,1,PosCode-1));
vString:=DELSTR(vString,1,PosCode);
PosCode:=STRPOS(vString,';');
TestImport.Name := FORMAT(COPYSTR(vString,1,PosCode-1));
vString:=DELSTR(vString,1,PosCode);
TestImport.Address := FORMAT(vString);
TestImport.INSERT;
UNTIL
SFile.POS = SFile.LEN;
MESSAGE('Import Done');