[pikabu]

Короче, сделал так

Код:

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