var w,s:string; begin w:=Memo1.Lines.Strings[5]; s:=(Format('%s', [Copy(w, 1, 2)])); Gauge1.Progress:=StrtoInt(s);