[lmikle]

Ну, как-то так:

Код:

If (a > 0) And (b > 0) Then
  Begin
    If (b >= 2*a) 
	  Then ShowMessage('Case 1')
	  Else
	    If (a < b) And (b < 2*a)
		   Then ShowMessage('Case 2')
		   Else
		     If (a > b) 
			   Then ShowMessage('Case 3')
			   Else ShowMessage('Out of cases!');
  End;

Случай, когда a < 0 или b < 0 игнорируется.
Или тебе нужно что-то другое?