function cf_sscanf(buf:PChar; fmt:PChar):Integer; cdecl varargs;  external 'msvcrt.dll' name 'sscanf';

 

procedure TForm1.Button1Click(Sender: TObject);

var

 fmt, ds: string;

 i: integer;

 s: array[0..32] of Char;

begin

 fmt := '%8d %32s';

 ds := Format(fmt, [1, 'privet']);

 cf_sscanf( PChar(ds),PChar(fmt),@i,@s);

 ShowMessage(IntToStr(i) + ', ' + s);

end;