Source position: capstr.pas line 20
type TCapStr = record
strlen: Integer;
growby: Integer;
data: ansistring;
end;