//구조체 선언
type
  TData = packed record
  Field : array[0..20 ] of char;
  start , Len : array[0..2 ] of char;
end;

var
aDataSet : array of TData;
sField , sStart, sLen : string
begin
  sField := Edit1.text;
  sStart := Edit2.text;
  sLen   := Edit3.text;
  with aDataSet[ 0 ] do begin
    StrCopy( Field  , pChar(format('%20s', [ sField ])) );
    StrCopy( Start  , pChar(format('%2s' , [ sStart ])) );
    StrCopy( Len    , pChar(format('%2s' , [ sLen ])) );
  end;

위 구문은 ERROR 없이 들어가긴하지만
항목마다 1자리씩 덜들어갑니다..
그렇다고 원래 크기대루 넣게 되면..

  with aDataSet[ 0 ] do begin
    StrCopy( Field  , pChar(format('%21s', [ sField ])) );
    StrCopy( Start  , pChar(format('%3s' , [ sStart ])) );
    StrCopy( Len    , pChar(format('%3s' , [ sLen ])) );
  end;

ERROR가 나더라구염....

위에 선언된 자릿수하고 똑같이 넣는 방법은 없나여??