[roman]

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  I := Integer;

begin
  for I := 0 to ListBox2.Items.Count - 1 do
    if ListBox2.Items[i] = 'N' then
    begin
      Height := 200;
      Width := 300;

      break;
    end;      
end;

// Saludos