[lmikle]

Так сойдет?

Код:

function GetRectByCoord(x1,y1,x2,y2 : Integer) : TRect;
begin
  Result.Left := Min(x1,x2);
  Result.Right := Max(x1,x2);
  Result.Top := Min(y1,y2);
  Result.Bottom := Max(y1,y2);
end;