TSomeRecord = record
 Item1: integer;
 Data: string;
end;

var SR: TSomeRecord;
...
SR.Item1:=1;
SR.Data:='ABC';