FillRectなどでTRect型を要求されたとき、いつも

var
　Rect : TRect ;
begin
　Rect.Left := 100 ;
　Rect.Top := 100 ;
　Rect.Right := 200 ;
　Rect.Bottom:= 200 ;

って感じで変数を作ってひとつひとつ代入して使っているのですが、
もって一括で代入したりする方法ないですか？

Rect := ( 100, 100, 200, 200) ;

↑こんな感じ